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Station für 
Colour 
Genie 


Es handelt sich um Komplettstationen, bestehend aus einem Doppelgehäuse mit Netzteil 
für zwei Laufwerke. Ein Controller für maximal vier Laufwerke ist ebenfalls eingebaut. 


Das Betriebssystem befindet sich im EPROM, so daß kein RAM-Speicherplatz verloren 
geht. Das Betriebssystem ist ähnlich dem G-DOS des Genie I/H oder Genie Ill. Format- 
mäßig sogar identisch, das heißt, es können alle Programme des Genie I/1l oder TRS 80 
{unter NEWDOS 80) direkt von der Diskette eingelesen werden. Basicprogramme sind so- 
mit direkt übertragbar und lauffähig, bei Maschinenprogrammen hängt es von dem be- 
nutzten Speicherbereich und den Einsprungadressen ab. 


Wie im NEWDOS 80 sind verschiedene Laufwerktypen von 40 Track bis 80 Track doppel- 
seitig anschließbar. 


Die Station ist direkt an das. Colour ‚Genie anschließbar (alle Kabel im Preis enthalten!). 
Der Controller arbeitet auch mit Double Density, so bekommen Sie mehr Speicherplatz 
zum gleichen Preis. Weitere Bemerkungen antnehmen Sie bitte unserem Hinweisblatt "Was 
ist ein Floppy -Disk ?''; Bee 


Der Preis hängt von der Laufwerkbestückung w wie folgt ab: 
1. Station mit Controller und Betriebssystem: : 


bestücktmit 1 Laufwerk MT.(OK 1295,-- DM 
bestückt mit 2 Laufwerken 40Tr.(360K 1895,-- DM 
bestückt mit 1 Laufwerk 80 Tr., doppels.’(720:K) 2198,-- DM 
bestückt mit 2 Laufwerken 80 Tr., doppels, (1,4:MB): 3098,-- DM 
Direkt zum Mitbestellen: 

10er Pack maxeil Disketten MD 1D BE 85,-- DM 
10er Pack disky Disketten MCL 40/1/d 65,-- DM 
Spiele-Diskette mit 10 schönen Basic-Spielen RR. 49, DM: 
Abenteuer-Diskette, entfliehen Sie dem Alltag durch eine Reise durch den Mittelpunkt der 
Erde oder entdecken Sie Schätze auf einer Pirateninse], ... 69;--:DM 





SCHM IDTKE Weiteres aus unserem Programm: 
j Genie I mit 64 K 998,-- DM 





electronic Genie Il mit 64. K 1145,-- DM 

irn- Nachrüstsatz für Genie I/ll von K 

Büro- und Personalcomputer an, e I/II v on 
Sandkaulstraße 84 - Telefon: 0241-232 17 16 K-Modul für Colour Genie 98,-- DM 

| 5100 AACHEN Option EG 64 (zum einlöten). oder Lu- 
en bomir-Soft-Switch (steckbar) ermöglicht 
Sa. 10.00 - 14.30 Uhr CP/M 2.2 auf dem Genie I/ll 195,-- DM 


donnerstags geschlossen 


passend CP/M 2.2 495,-- DM 








In eigener Sache 


Liebe Leserin, lieber Leser ! 


Jetzt gibt es die GENIE DATA 
schon ein ganzes halbes Jahr lang, 
3 Ausgaben sind bereits erschie- 
nen, die 4 liegt in diesem Moment 
vor Ihnen. 

Uns scheint das Grund genug zu 
sein, einmal das Wort an Sie zu 
richten. Es gibt da einige Dinge, 
die einfach einmal gesagt werden 
müssen. 

Sofort zu Anfang, damit es 
nicht vergessen wird, die GENIE 
DATA Nummer 1 und 2 sind rest- 
los vergriffen. Nachbestellungen 
können nicht mehr erledigt wer- 
den. Wir bitten Sie dafür um Ver- 
ständnis, möchten Sie aber gleich- 
zeitig auf einen Sammelband hin- 
weisen, der am 15. Dezember '83 
erscheint und in dem die besten 
Artikel und Programme der Num- 
mern 1 und 2 zusammengefaßt 
sein werden. Diesen Sammelband 
können Sie ab sofort bei uns be- 
stellen, oder zum gegebenen Zeit- 
punkt bei Ihrem GENIE DATA 
Händler kaufen. Er wird 8 DM 
kosten. 

Eine andere Sache ist das mit 


dem GENIE DATA Software Ser- 
vice. Er sollte eigentlich mit die- 
ser GENIE DATA zum ersten 
Mal erscheinen. Das ist aus ver- 
schiedenen Gründen leider nicht 
möglich, und wir bitten dafür 
um Verständnis. Alle bisher bei 
uns eingegangenen Bestellungen 
werden wir dann ab der nächsten 
Nummer erledigen. 

Sollten Sie auch Interesse am 
GENIE DATA Software Service 
haben, so können Sie die Pro- 
gramm-Cassetten direkt beim Ver- 
lag bestellen oder _abonnieren. 
Eine einzelne Cassette kostet 
19,80 DM ein Abo nur 99,80 DM. 

So, und jetzt zum neuen "'Ge- 
sicht” der GENIE DATA: 

Wie Sie sehen, hat sich das Aus- 
sehen der GENIE DATA ziem- 
lich radikal gewandelt, das reicht 
von unserem neuen Papier bis zur 
jetzt sehr professionellen Satzge- 
staltung. Die GENIE DATA hat 
zwar nicht mehr Umfang als sonst, 
aber bedingt durch die wesent- 
lich schmalere Schrift, die wir 
jetzt verwenden, mehr Inhalt. Wir 
hoffen, daß Sie mit dem neuen 
Aussehen ebenso zufrieden sind 


wie wir, Vielleicht schreiben Sie 
uns einmal Ihre Meinung dazu. 

Auch eine Beurteilung der ver- 
schiedenen Artikel in Form von 
Leserbriefen, würden wir sehr be- 
grüßen, da wir uns dann noch 
mehr als bisher nach Ihren Wün- 
schen richten können. 

Und wenn Sie selbst einen in- 
teressanten Artikel in Ihrer Schub- 
lade haben, senden Sie ihn uns. 

Noch ein kurzer Satz zu dem 
Wort. Marktführer auf dem Um- 
schlag. Mittlerweile, das haben 
Sie vielleicht auch schon gemerkt, 
hat die GENIE DATA einige Mit- 
bewerber bekommen. Wie Sie aber 
bei einem objektiven Vergleich der 
einzelnen Hefte feststellen kön- 
nen, sind wir tatsächlich der 
Marktführer, und darauf sind wir 
zurecht stolz. Wir werden auch 
alles tun, damit das in Zukunft 
so bleibt. 

So und jetzt genug geredet, 
stürzen Sie sich in die faszinieren- 
de Welt der Hard- und Software. 
Viel Spaß mit dieser GENIE 
DATA. 


Ihre GENIE DATA Redaktion 
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SOFTWARE 


Colour Genie 
spricht deutsch 


Sind Sie je mitten in der Nacht 
aufgewacht, und haben eine wun- 
derbare Vision gehabt? Wahr- 
scheinlich nicht. Aber wenn doch, 
haben Sie vielleicht dann davon 
geträumt, daß Ihr Colour Genie 
einmal deutsch mit Ihnen spricht? 
Das es artig Schreibfehler’ sagt, 
anstatt Ihnen ein verstümmeltes 
?SN Error an den Kopf zu werfen? 
Das es nicht mehr Ready sondern 
Fertig sagt, oder vielleicht sogar 
"Ich bin fertig Xyz’'? 
Dann ist dieses Programm genau 
das Richtige für Sie! Aber es ist 
auch. dann genau das Richtige für 
Sie, wenn Sie immer schon mal 
wissen wollten, wie’man diesen 
fest ins ROM eingebrannten Ba- 
sic Interpreter so verändern kann, 
daß er genau das tut, was man 
will, denn das zeigt dieses Pro- 
gramm sehr schön. 
Was passiert also, wenn Sie dieses 
Programm mit Hilfe des Editor/ 
Assemblers eingeben, und auf Cas- 
sette gespeichert haben? Sie laden 
es ein, und nach wenigen Sekun- 
den meldet der Computer sich 
wieder mit ” Jetzt spricht das Co- 
lour Genie deutsch,‘ Darunter 
steht "COLOUR BASIC” und 
"Fertig”. 
Fertig? Da sehen wir schon die 
erste Veränderung. Das langweilige 
Ready wird durch (ein weniger 
langweiliges?) ""Fertig’' ersetzt. 
Die zweite Veränderung zeigt sich, 
wenn wir uns vertippen, und z.B. 
anstelle von "CLOAD”, "CLOD" 
eingeben. Der Computer sagt näm- 
lich nicht ?SN Error sondern 
"Schreibfehler”. Natürlich werden 
auch alle anderen Fehlermeldun- 
gen im deutschen Klartext ausge- 
geben, z. B. "Zahl zu groß’ ‚oder 
"Division durch Null”. a 
Mit anderen Worten: 
Ein nützliches Programm für den 
Anfänger, der das Fehlermeldungs- 
Abkürzungsgestammel des Basics 


noch nicht auswendig gelernt hat. 
Aber auch ein nützliches Pro- 
gramm für den Profi: Er kann da- 
ran sehen, wie man das Basic nach 
seinen eigenen Wünschen ändern 
kann (natürlich in Grenzen). 

Das Programm bleibt solange ak- 
tiv, bis der Computer abgeschaltet 
wird, oder ein Kaltstart (Mem Si- 
ze) ausgeführt wird. Die Memory 
Size Reservierung nimmt das Pro- 
gramm selbständig vor, daher ha- 
ben Sie nach dem Einlesen etwas 
weniger Platz für Basic-Program- 
me. Das Programm arbeitet, so wie 
es hier abgedruckt ist, nur auf ei- 
nem Colour Genie mit 16 K Erwei- 
terung. Wenn Sie nur die Grund- 
version ohne Zusatzspeicherkarte 
besitzen, müssen Sie Zeile 10 im 
Programm in ORG ®7D6AH 
ändern. 

So, und hier die Programmbe- 
schreibung. Dabei setze ich voraus, 
daß Sie halbwegs Maschinenspra- 
che (Assembler) beherrschen. 
Fangen wir ausnamsweise mal hin- 
ten an: Ab Zeile 1020 wird der 
DOS-Link für die System-Routine 
des Basic Interpreters überschrie- 
ben. DOS-Links sind bestimmte 
Stellen im RAM (deren Inhalt 
wir also verändern können) die 
vom Basic Interpreter angesprun- 
gen werden, bevor er etwas be- 
stimmtes:tut. Normalerweise steht 
in den DOS-Links .ein..RET,. ein 
Rücksprungbefehl, so... das diese 
DOS-Links keine Wirkung haben: 


Wenn wir aber einen. Sprungbe- 


fehl zu unserem eigenen... Pro- 
gramm dort hinschreiben, dann 
führt der Basic Interpreter unser 
Programm aus. Mit einem RET 
am. Ende unseres Programmes kön- 
nen wir dann die Kontrolle an 
den Basic Interpreter zurück 
geben. 

Nun .dieses DOS-Link wird von 
der System-Routine jedesma! dann 
aufgerufen, bevor das x? ausge- 


'vorschub und 


geben wird. Wenn wir also "'Sys- 
tem’ eingeben, dann wird erst die 
Adresse 41E2H aufgerufen, dort 
steht ein RET, es wird also zum 
Basic zurückgesprungen, und dann 
erst wird das Sternchen mit dem 
Fragezeichen ausgegeben. Wenn 
wir also mit ORG 41E2H und ei- 
nem JP an den Anfang unseres 
Programmes diese Adresse. über- 
schreiben, dann startet unser'Pro- 
gramm automatisch. Eine:genaue 
Erklärung dazu steht auchnoch 
mal in GENIE DATA Nr. 2 auf 
Seite 29. 

Ist das Programm also fertig ein- 
gelesen, wird zu INIT gesprungen, 
wo die übrigen DOS-Links initi- 
alisiert werden, nämlich”41A6H, 
der angesprungen wird, 'bevor Ba- 
sic eine Fehlermeldung: ausgibt, 
und 41ACH, der angesprungen 
wird, bevor Ready ausdegeben 
wird. Anschließend wird.ein RET 
(®CYH) nach 41E2H geschrieben, 
damit der System-Befehl wieder 
funktioniert. Danach wird "Jetzt 
spricht ...”” ausgedruckt, und HL 
mit dem korrekten Mem. Size, 
Wert geladen, und zu der Stelle 
im Basic gesprungen, die diesen 
Wert abspeichert (182H). 

Jedesmal wenn Basic jetzt Ready 
ausdrucken will, wird vorher über. 
den DOS-Link ""NREADY' an- 
gesprungen. Dort wird auf den 


Text-Modus geschaltet (LGR), die 


Cassette initialisiert, ein Zeilen- 
Fertig” ausge- 
geben. ‚Anschließend wird ‚wieder 
ins Basic gesprungen. 

Jedesmal wenn "eine Fehlermel- 
dung ausgegeben werden soll, wird 
vorher ''FEHLER’’ angesprungen. 
Dabei steht der Fehlercode im E 
Register. Er wird durch zwei di- 
vidiert {RRCA) und um 1 erhöht 
(INC A). Jetzt steht der korrekte 
Wert im A Register. Anhand die- 


ses Wertes wird in der Tabelle 


die entsprechende Fehlermeldung 
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gesucht und ausgedruckt. ja wird hinter der Fehlermeldung ist nicht Null. Hier noch eine Ta- 
Dann wird überprüft, ob die Zei- noch ein Punkt ausgedruckt, sonst belle der verwendeten Unterpro- 
lennummer, in der der Fehler auf- : wird ins Basic zurückgesprungen, gramme im Basic-ROM. 








| getreten ist, gleich Null ist, wenn vorausgesetzt, die Zeilennummer Thomas M. Binzinger 
38BÖH LGR Entspricht dem LGR Befehl des Basics. 
2BF9H CR Gibt einen Zeilenvorschub aus. 
28A7H PRINT Druckt den String aus, auf den HL zeigt, Endzeichen ist Null. 
33H PRINT Druckt das Zeichen aus, das im A Register steht. 
DOS-Links 
A41A6H Wird vor der Ausgabe einer Fehlermeldung aufgerufen. 
41E2H Wird nach der Eingabe von "SYSTEM" aufgerufen. 
41ACH Wird vor der Ausgabe von "READY aufgerufen. 
10 ORG OBD6AH 
20 INIT LD A,OC3H 
30 LD (4LA6H), A 
40 LD HL,FEHLEER 
50 LD (Z1A7H), HL 
60 LD HL,NREADY 
79 LD A,0C3H 
80 LD (441ACH), A 
90 LD (Z41ADH), HL 
100 LD A,OC9H 
110 LD (41E2H), A 
120 LD HL,MESS1 
130 FALL 28A7H 
140 1LD HL,NREADY 
150 ö DEC HL 
160 IP 102H 
170 MESS1 DEFM 'Jetzt spricht das Colour-Genie Deutsch !' 
180 DEFW ODODH 
190 NOP 
200 NREADY CALL 38BOH 
210 CALL 1F8H 
220 CALL 20F9H 
230 LD HL,RMESS 
240 CALL 28A7H 
250 POP Hl; 
260 . IP 1A2BH 
270 RMESS DEFM 'Fertig.' 
280 DEFB 13 
290 NOP 
300 FEHLER POP HL | 
310 LD A,E | | 
320 . PR 2DH | 
330 JR LABI1 
340 LD’ A,26H 
350 LAB1 RRCA 
360 INC A 


370. LD B,A 
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TRS-80 Modellll 


NEU! 
H. Grosser, |.. Röckrath: 


ROM-Listing 


® vollst. disassembliert und deutsch kommentiert 
® RAM-VO-Adressen 


e 2 vollständige Listings 3000H-37FFH (Amerika- 
nisch/Deutsch) und Vergleich 


« Vergleich Model I / Model Hl (Unterprogramme) 
® genaue Erläuterung beider Kassettenformate 
® Weit über 150 Seiten i 


für nur 79 DM inkl. 7% MwSt. 


L. Röckrath 


Noppiusstraße 19, 5100 Aachen 
Telefon (02 41)34962 


NOP 





8 SOFTWARE 
380 ED HL,FETAB-1 
390 CP 0 
400 IR Z,LAB3 
410 LAB2 INC HL 
420 1:D A,(HL) 
430 CP. OÖ 
A4O IR NZ,LAB2 
450 DINZ LAB2 
460 LAB3 INC . HL 
470 CALL 25A7H 
480 LD HL,(40A2H) 
490 LD DE,OFFFFH 
500 RST 18H 
510 jp NZ ,1A11H 
520 LD Ay. 
530 CALL 33H 
540 LD HL,(Z0A2H) 
550 IP 1AllH 
560 FETAB DEFM 'NEXT ohne FOR' 
570 NOP 
580 DEFM 'Schreibfehler' 
590 NOP 
600 DEFM 'RETURN ohne GOSUB'’ 
610 NOP 
620 DEFM 'Kein DATA-Element mehr' 
630 NOP 
640 DEFM 'Illegaler Funktionsaufruf' 
650 NOP 
660 DEFM 'Zahl zu gross’ 
670 NOP 
680 DEFM 'Kein Speicherplatz mehr' 
690 NOP 
700 DEFM 'Falsche Zeilennummer' 
710 








COLOUR-GENIE 


NEU! 
N. Heicke, L, Röckrath: 


ROM-Listing 
e volist. disassembliert und kommentiert 
(0000H-3FFFH) \ 


© RAM-VO-Adressen 

© neueste Version! 

# Bildschirmformate, Speicheraufteilung 

e genaue Unterprogrammerklärungen 
für den Programmierer 

e Ein absolutes Muß fürjeden Anwender 


für nur 59 DM (inkl. 7% MwSt.) 


L. Röckrath 


Noppiusstraße 19, 5100 Aachen 
Telefon (02 41) 349 62 


GENIE Ill 


J. Heicke, L. Röckrath 


DEBUG-Handhuch 


» volist. disassembliertes und deutsch kommen- 
tiertes Listing des ins RAM geladenen Basic- 

{ interpreters und des Bootstrapsroms 

# RAM-Adressen, 1/0-Adressen: insbes. 
CRT-Controller, Tastaturmatrix (Umlaute, 
Funktionstasten) " 

« Über 150 ausführlich dokumentierte Unterpro- 
gramme und DOS-Einsprünge (GDOS 3.0) 

« Crossreferenz 

® ihr Weg zur optimalen Ausnutzung des Genie Hl 
durch Programmentwicklung und eigene 
Änderungen 


für nur 98 DM (inkl. 7% MwSt.) 


L. Röckrath 


Noppiusstraße 19, 5100 Aachen 
Telefon (02 41) 34962 ° 




















SOFTWARE 
720 DEFM 'Feldvereinbarung zu gross’ 
730 NOP 
740 DEFM ‘Doppelt vereinbartes Feld' 
750 NOP 
760 DEFM "Division durch O' 
770 NOP 
780 DEFM 'Im direckt-Modus nicht ausfuehrbar' 
790 NOP 
800 DEFM 'Falscher Variablentyp' 
810 NOP 
820 : DEFM 'Zeichenkettenspeicherplatz zu Ende' 
830 NOP 
840 DEFM 'Zeichenkette zu lang' 
850 NOP 
860 DEFM 'Zeichenkettenformel zu komplex' 
870 NOP 
880 DEFM 'kann nicht weitermachen' 
890 NOP 
900 DEFM 'kein RESUME’ 
910 NOP 
920 DEFM 'RESUME ohne Fehler' 
930 NOP 
940 DEFM 'Fehler unbekannt’ 
950 NOP 
960 DEFM 'fehlender Operand' 
970 NOP 
980 DEFM ‘falsche Feld-Daten’' 
9% NOP 
1000 DEFM "Befehl nur im Disk-Basic' 
1010 NOP 
1020 ORG 41E2H 
1030 IP INIT 
1040 END INIT 





ROM-LISTINGS 


Die Firma L. Röckrath, Aachen, 
gibt bereits seit geraumer Zeit für 
TRS 80 Modell 1 bzw. Genie | + 
II kommentierte ROM-Listings 
heraus. Das dieses Programm auch 
auf die Computer Colour Genie 
sowie TRS Modell 3 und Genie 
Ill erweitert wurde, scheint uns 
Grund genug zu sein, diese Lis- 
tings einmal näher unter die Lupe 
zu nehmen. 

Vorweg sei noch gesagt, daß die 


Version für Genie I + Il sowie 
TRS 80 Modell 1 schon seit län- 
gerer Zeit erhältlich ist, daß die 
Version für Colour Genie zum 
Erscheinungs-Zeitpunkt dieses Ar- 
tikels wohl auch verfügbar ist und 
daß Sie auf die Version für Genie 
Ill wohl noch kurze Zeit warten 
müssen. 

Jetzt aber zum Aufbau der Bü- 
cher. Zum Testen stand uns die 
Version für TRS 80 bzw. Video 


Genie zur Verfügung, es darf aber 
angenommen werden, daß die an- 
deren Versionen den erreichten 
Qualitätsstandard halten können. 

Die Verarbeitung der Bücher 
scheint uns ausreichend gut zu 
sein. Sie sind gebunden, wie man 
das ja auch erwarten kann. Aber 


das Wesentliche ist der Inhalt, auf 


den wir jetzt zu sprechen kom- 
men. 
Sie erhalten 109 Seiten Listing des 
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Level || Basic Interpreters, selbst- 
verständlich gut dokumentiert, 2 
Seiten in denen Variationen der 
verschiedenen Systeme bespro- 
chen werden, 4 Seiten Informa- 
tionen über die verschiedenen 
RAM Adressen, 1 Seite I/O Adres- 
sen, 5 Seiten in denen die verschie- 
denen Unterprogramme bespro- 
chen werden, die Sie für Ihre Pro- 
gramme nutzen können, 3 Seiten 
in denen alle Basic Anweisungen 


1109 F5 PUSH AF 
HIER FA DE II JP K, L1DE 
LOB AF RA 

I1DE 2F EPL 

HOF IN A 

HEO BO ADB 

HEI 3C IN A 

11E2 82 MD 

HE 47 LD B,A 
LIEA 0E 00 ID L,00 
IESCD AK IE CALL 1208 
t1E9 Fi POP Ar 
HEAFATII2  CAlL  P,1271 
LIED Ci POP BE 
HEE Fi POP AF 
tIEF CC2F 09 CALL  1,092F 
IF Fi Pr Ar 
HIFI 38 03 IR E,11F8 
HF5 83 ME 

HFb 90 SB B 

HFT 92 SD 

I1FB 05 PUSH BE 
HF CD 710 CAL 1074 
LIFE ER EX DE, HL 
HFD DI 


POP E 
UFE EI BF 10 JPp 10BF 


SOFTWARE 


und Funktionen mit Adressen im 
ROM gelistet sind und eine Erklä- 
rung des Aufzeichnungsformates 
von Cassetten. 

Die Seiten über das ROM-Listing 
sind alle einheitlich gehalten und 
sehr gut kommentiert, sie eignen 
sich sowohl für den 
Programmierer, der es nicht lassen 
kann in Assembler zu program- 
mieren und dabei gerne die Un- 
terprogramme im ROM ausnutzen 





möchte, als auch für den Basic- 
Programmierer, der einfach gerne 
mehr über seinen Computer wis- 
sen möchte. Wie die Seiten aus-: 
sehen, zeigen wir unten in einem 
Beispiel-Ausdruck. Alles in allem 


können wir sagen, daß dieses 
ROM-Listing für jeden ein Muß 
ist, der mehr über seinen Compu- 
ter wissen möchte. 

Aber eigentlich ist es traurig, daß 
man sich sowas extra kaufen muß. 


‚- Se DER WEGZURUNDENDEN STELLEN RETTEN, KEINE STELLEN WEGZURUNDEN? 


FNEIN 
FPosıTivg ANZAHL. ERMITTELN 

;* VORKOMNAFELDLAENGE 

Ib, FENN VORZEICHEN VOR Zah 


PARAMETER FUER ’,’ = 0 {KEIN ’,”) 
ISTRING IN BUFFER 


SEESRNTFELDLAENGE - GENAUIGKEIT > 0? 


ENTSPRECHENDE ANZAHL NULLEN IN BUFFER 


SPELDPARANETER ZURUECK 
PNCHKOMBFELLAENE = 97 
"AUS BUFFER ENTFERNEN 
Hal: 


dA 
FAUSZUBEBENDEN 10-EXP ERMITTELN 


+FELDPARANETER RETTEN . 

‚URD 10-EXP IN BUFFER 
;BUFFERENDE NACH HL 
;FELDPARANETER NACH DE ZURUECK 
3BEITER 


ZAHL SOLANGE MIT 100 MULTIPLIZIEREN ODER DURCH I0D DIVIDEREN BIS 


1201 DS 

1202 AF XOR A 

1203 F5 PUSH Ar 

1204 E7 RST 20 

1205 E2 22 12 JP An 
1208 3A 24 41 LD (4124) 


120B FE 91 cp » 


1200 22 22 12 JP NC,1222 
1219 11 64 13 {D DE, 1364 
1213 21 27 4 LD HL 54127 


1216 00307 Call obs 
1219 CDAIOD  CAL  ODA 


täic Fl POP AF 
1210 D& 0A SUB 0A. 
IaFFS PUSH AF. 
1220 18 Eb JR 1208 
1222 CD AF 12 EALL 124F 
1225 E7 RST 
1226 30 08 JR NE, 1223 
038R RESPR 
0097 RLM 
0DSA RLNA 


GENAU & 4!) DDER 160 n STELLEN 
PUSH BE 


E RETTEN 
| VERSCHIEBUNGEN =0 
}VERSCHIEBUNBEN RETTEN 
s1P TESTEN, SINGLE? 


JA 
;2-EIP ZAHL = 1797 
; (ZAHL >= 455360) 


FAT 
}IEIGER AUF KONSTANTE 1D10 
»EIBER AU 
ano A NACH in 
Eh ZURUECK 


FUND NIEDER RETTEN 
}WEITER 


:Za HL = IE6 (1) ODER 1D16 {87 --> NACH 1243 


np TESTEN, DOUBLE? 


er ern happens 


6FOA RMLTIO MULTIRLIZIERT REELLE ZAHL MIT 10D 


AUSGABE-FLAG AUF DISPLAY UND CR AUF he WENN DRUCKKOPF NICHT IN POSITION 0 
SPEICHERREREICH UM EIN BIT LINKS SCHIEBE 
8 SPEICHERZELLEN RECHTS SCHIEBEN 


1409 RND ERZEUGUNG EINER ZUFÄLLSZAHL 

6992 RNEG  NEGATIVEN WERT EINER REELLEN ZAHL BILDEN 
. 0778 RNULL  REELLE ZAHL = 6 

14F0 RRND  REELLE ZUFALLSZAHL ERZEUGEN 
- 0020 RRX SPEICHERREREICH UM 1 BIT RECHTS SCHIEBEN 


0935 RTESTX TESTET REELLE ZAHL 
07098 SADD2 SINGLEADDITION: 2 = 2 0,5 
ÖFB? SADDA SUMME BILDEN 


ERNESRLETIÖSRIIELIESSHRAN STORE LEEREN 





eiserne STE 





Jetzt ist es endlich da ......... 

















COLOUR 
GENIE 
SCHACH 


Das Jail der ea 


Das stärkste Schachprogramm der Welt für Colour Genie! Erstellt von Gerhard W. 
Wolf im Alleinvertrieb von Ralf M, Hübben, Verlag für Computertechnik. 


Mit diesem Schachprogramm zeigt Ihr Colour Genie was es alles kann! 


Colour Genie Schach bietet Ihnen unter anderem: 


- Sieben Schwierigkeits-Stufen. Das heißt: Unser Schachprogramm ist ge- 
eignet für Anfänger, die sich in die Kunst des Schachspiels noch ein- 
finden wollen, und für fortgeschrittene Spieler. Colour Genie Schach ist 
Ihnen ein guter Schachlehrer und Spielpartner. 


- Die Problem-Stufe: 
Wenn Sie diese Funktion wählen, löst Ihr Colour Genie Ihnen auch die 
schwierigsten Schachprobleme. 


- Bei Colour Genie Schach können Sie frei wählen, welche Farbe Sie 
spielen möchten. 


Colour Genie Schach erkennt nur Züge an, die den Schädhrägehn ent- 
sprechen, aus diesem Grund ist es auch für Spieler, die die Regeln des 
Schach noch nicht genau kennen, bestens geeignet. 


Colour Genie Schach macht Ihnen auf Wunsch Zugvorschläge, die Sie an- 
nehmen oder ablehnen können. 


Colour Genie Schach bietet noch soviele weitere Vorteile, daß es uns 
nicht möglich ist, sie hier alle zu erwähnen, z. B. Darstellung des 
Schach-Brettes auf dem Bildschirm, Anzeige des momentan besten Zuges, 
und, und, und, ..... 


Gibt es da eigentlich noch etwas zu überlegen? Nein !!!! 


Bestellen Sie sofort Ihre Cassette mit Colour Genie Schach! Denn: Colour Genie 
Schach bietet Ihnen ein unschlagbares Preis-Leistungs-Verhältnis ! 


BESTELL-NR. 27_ ZUM SAGENHAFTEN SUPERPREIS VON NUR s9,-- DM 
>>> JEDER DER EIN ANDERES SCHACHPROGRAMM KAUFT, <« 


>>> IST ES SELBST SCHULD! <<< 

















ROSEN TREUE TSIUETGEGE 






ERSTER NISCEÜEENRTRELTEORSTENENENT 
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SOFTWARE 





Haben Sie sich auch schon darüber 
geärgert, daß beim Auflisten von 


Programmen, Ihr Drucker Zeile 
auf Zeile druckt, ohne Pause, ohne 
Rücksicht auf Blattwechsel, Falz- 
markierungen oder ähnliches? 

Das System führt die Informa- 
tion über Anzahl gedruckter Zei- 
len und maximale Anzahl von Zei- 
len pro Seite, wertet sie aber nicht 
automatisch aus. Sie können einen 
Blatt- oder Formularvorschub 
durch Ausgabe spezieller Steuer- 
zeichen erwirken {x’0C’ o. x’OB’), 
Sie müßen diese jedoch selbst pro- 
grammieren. 

Was ist aber beim Auflisten von 


Programmen? Der Befehl LLIST 


kümmert sich nicht um solche Sa- 
chen und warum etwas immer wie- 
der selbst machen, wenn es das. 
System auch kann. 

Das nachfolgende kleine Basic- 
Programm erzeugt eine nur 17 By- 
te lange Maschinencode-Routine, 
mit der Ihr Drucker-Treiber so er- 
gänzt wird, daß er von Ihnen vor- 
gegebene Seitenbegrenzungen_ er- 
kennt und automatisch Blattwech- 
sel nach der vorgegebenen Anzahl 


PUSH BC 





von Zeilen durchführt. 

Diese Routine ist jedoch nicht 
nur beim LLIST wirksam, sondern 
bei allen Druckerausgaben, die den 
normalen Treiber im ROM benut- 
zen, ob in Basic oder Maschinen- 
sprache. 

Das Programm wird mit CLO- 
AD geladen (bei Disk-Systemen 
natürlich mit LOAD) und an- 
schließend mit RUN gestartet. Es 
werden als Eingabeparameter zwei 
Werte verlangt, die Anzahl Zeilen 


pro Seite (wie lang ist Ihr Papier), 


und die Anzah! der Druckzeilen, 
nach denen jeweils ein Blattvor- 
schub erfolgen soll. Es sind Werte 
zwischen 1 und 255 zulässig, wo- 
bei natürlich die Anzahl Druckzei- 
len auf eine Seite passen sollte. 
(Wird geprüft!) Sind beide Werte 
gleich, hätten Sie sich die Mühe 
des Programmladens sparen kön- 
nen. 

ACHTUNG: 

Das Programm darf nur einmal 
nach jedem Einschalten bzw. 
Rücksetzen des Rechners gestartet 
werden, da es mit dem bestehen- 
den Druckertreiber verknüpft wird. 


‚Starten Sie es mehrfach, so gibt 


Ihr Drucker nichts mehr von sich, 
die Routine hat sich mit sich 
selbst verknüpft und schleift, und 
schleift, und ... 

Bei der lnitialisierung wird der 
Zeilenzähler im Device-Control- 
Block (DCB) auf Null (bei: Mod. 
I = 1) gesetzt. Sollen mehrere 
Ausdrucke nacheinander erfolgen, 
empfiehlt es sich, den Zeilenzäh- 
ler manuell zurückzusetzen. Es 
wäre reiner Zufall, wenn dieser am 
Ende einer Ausgabe richtig steht. 
Das Rücksetzen erfolgt im Basic 
mit der Anweisung POKE 16425,0 
(bei Mod. Ill Poke 16425,1). 

Geben Sie Zeilen aus, die die 
Druckbreite Ihres Druckers über- 
schreiten, und macht dieser da- 
raufhin einen automatischen Vor- 
schub, so wird dieses vom Rechner 
nicht registriert, und es ergeben 
sich extra Zeilen pro Seite. 

Zum Programmaufbau einige An- 
merkungen: 

Nach der Vorstellung und dem 
Einlesen der beiden Werte (Zeilen 
120-230) wird in Zeile 250 die 
höchste verfügbare Speicheradres- 
se ermittelt, in Zeile 260 um die 
Länge der Routine vermindert 
{17 Byte) und zurückgeschrieben. 
Die Adressen 16561 (LSB) und 
16562 (MSB):enthalten die Adres- 
se, die Sie’bei der Frage nach 
"MEMORY. SIZE” oder "REA- 
DY'' eingegeben haben. In Verbin- 
dung mit einem anschließenden 
CLEAR (Zeile 500) ist dies ein gu- 
tes Verfahren, in einem Programm 
MEMORY SIZE selbst zu setzen. 

Zeilen 300-330 übertragen die 
kleine Routine aus den DATA- 
Zeilen 340 und 350 in den ermit- 
telten Speicherbereich. In Assemb- 
ler dargestellt, sieht dies wie folgt 
aus! 


Zu druckendes Zeichen sichern 


Anzahl gedruckter Zeilen laden 


Ja, Formularvorschub durchführen 


LD A, (1X +4) 

CP DRUCKZEILEN = Grenzwert? 
JR NZ,5 Nein, zum Ende 
LD C,0CH 

CALL ROM -Treiber 

POP BC 


Zu druckendes Zeichen wieder laden 


JP ROM -Treiber 
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Die Zeilen 3{CP), S{CALL) und 8 
(JP) enthalten bei der Initialisie- 
rung Nullen, sie werden in den 
Zeilen 390-480 zusammen mit 
dem Device-Control-Block modi- 
fiziert. In Zeile 390 wird das Pa- 
piermaß (max. Anzahl Zeilen /Sei- 
te) in den DCB übertragen, in Zei- 
le 400 der Zeilenzähler auf den 


überträgt die Anzahl der Druck- 
zeilen in die Ergänzungsroutine 
(CP-Befehl), Zeilen 420-450 
übernehmen aus dem DCB die 
Adresse der ROM-Treiberroutine 
und tragen diese in den CALL- 
und JP-Befehl ein. 

Die Anfangsadresse der Ergän- 
zungsroutine wird in 470 und 480 


DCB eingetragen. 

In Zeile 370 werden die Vari- 
ablen für einen TRS8O Model III 
modifiziert (alles + 1). 

Nun viel Spaß beim Ein- bzw. 
Abtippen oder machen Sie es sich 
leichter, bestellen Sie die Cas- 
sette beim Programm -Service. 


Ausgangswert gesetzt. Zeile 420 als neue Treiberadresse in den G. W. Woif 
18 ERERKERKTTRER EHRE ER R 
2a” * Drucker-Treiber Ergaenzung * 
3B °® * fuer autom. Blattvorschub #* 
aa? * von Gerhard W. Wolf * 
Sa °® * 6588 Pirkenfeld (Nahe) %* 
Ha’ * Version 1, 4 August 1983 * 
70 °’ * fuer TRSBY® Mod. I/TIl * 
= 1 * Video Genie 1/11 * 
7a * Colour Genie EÜYRRR * 
100 KERKKERERKR RT ERIK 
il ’ 
120 ” VORSTELLUNG UND PARAMETER EINLESEN 
130 CLS 
14 PRINT "DRUCKER-TREIBER ERSAENZUNG FUER" 
159 PRINT "AUTOMATISCHEN BLATTVORSCHUBR" 
i&ß PRINT "VON GERHARD W. WOLF, VERSION 1, AUG.83" 
t70. PRINT "se =-==-= sem ameuzemı zum zus se mm mm" 
180 PRINT. 
1909 INPUT "ANZAHL ZEILEN / SEITE (PAPIERMASSI"3A 
zB IF As OR A>255 PRINT "FALSCH! "3:G0T0 192 
Zi INPUT "ANZAHL DRUCKZEILEN PRO SEITE"SER 
2208 IF B=Q@ OR B>A PRINT "FALSCH! "Habt Z10 
230 IF B=A PRINT "DAZU BENOETIGEN SIE KEINE ERGAENZUNG!": END 
248 ° SPEICHERBEREICH ERMITTELN UND MEMORY-SIZE MODIFIZIEREN 
250 C = PEEKTISSAT) * 2565 + PEEK{16561) 
262 C=G —- 17 
270 POKE 16562, INT(C/236) 
280 POKE 165561, C-INTIC/ZI6 ) #254 
298 ” ROUTINE IM OBEREN SPEICHER AUFBAUEN 
300 C=C+1l: IF C>32767 THEN C=6-6553% 
31a FOR I = C TO C+lö 
320 READ D: POKE I,D 
338 NEXT I 
340 DATA 197,221, 1263 4, 254, 9, 32,55 14, 12 


358 DATA 2085,9,2,193,195,0,0 


3a ”’ 
378 D=@: 
382 ’PARAMETER IN 
3F7@ POKE 16424, A: 
42 POKE 16425,D: 
418 POKE C+5,B: 


420 PORE C+11, PEEK(I6A22) 3 
432 
44 
452 
468 


PORKE 
POKE 
POKE 


FUER TRSSB-MODEL III PARAMETER MODIFIZIEREN 
IF PEEK(293)=73 THEN A=sAtl:B=eB+l:D=D+i 


DER UND ROUTINE EINTRAGEN 


’MAX ZEILEN/SEITE | 
"ANZAHL. DRUCKZEILEN 


’MAX ANZAHL DRUCKZEILEN 
’ALTE TREIRERADR. 
+15, PEEK{ 16422) 
C+12, PEEKt16423) 
Gri&, PEEK(16423) 
IF Cs THEN C=t+655J36 


SEES CHEN SIE ee ER ET TATESAFEHAUUAKEEE NR AR KANERSOEEEINETSETITTHNTNDE B 
eTEIESLASSIETEAT A ESSENER ELEND ROSEN IRRE SO nee er nen 
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47@ PORE 16423, INT{C/236) 3 





SOFTWARE 


’ADR. 


432 PORE 164224, C=INT(C/256) #256 


498 
5AQ CLEAR 50 
5i2 PRINT 


ENDEMELDUNG UND BYE BYE 


Sea FOR I=1T01B22: NEXT I 


38 END 





DER 
Z SO -imere Struktur 


Dieser Artikel soll Sie mit der in- 
neren Struktur des Z80 ein wenig 
vertraut machen. Bedingt durch 
die Platzbegrenzung können nur 
einige Details erklärt werden. 
Register: 

Über die Register läuft der ganze 
Datenverkehr ab. Wenn man den 
Inhalt einer Speicherstelle auf eine 
andere übertragen will, wird der 
Inhalt zuerst in ein Register und 
dann in die gewünschte Speicher- 
stelle geladen. Im Grunde genom- 
men sind die Register nichts ande- 
res als Speicherstellen. Die Z80 
CPU hat 8 Register (A,B,C,D, E, 
F, H, L}. Hinzu kommt der Zweit- 
registersatz, der gleich benannt 
wird. Es kann immer nur einer der 
beiden. Registersätze angesprochen 
werden. Außerdem hat die Z80 
CPU noch das IX und IY Register, 
die als Indexregister dienen, das 
SP Register, das als Stackpointer 
fungiert und das PC Register, wel- 
ches auf den augenblicklich ausge- 
führten Befehl gerichtet ist. 

Die Register, die nur 8 Bit Zah- 
len aufnehmen können, lassen sich 
zu 16 Bit Registern zusammen- 
schalten: AF, BC, DE, HL. 

Das A Register und das HL Re- 
gisterpaar besitzen gegenüber den 
anderen Registern einige Priori- 
täten. Sie können Speicherzellen 
direkt ansprechen. Das F Register 
dient als Fiagregister. 

Flags: 
Logische Abfragen und Programm- 
verzweigungen können nur mit 


Hilfe der Flags geschehen. Die 
Flags sind: 
SIGN-Flag (S): 
Wenn ein Rechenergebnis negativ 
ist, enthält es eineEins, andernfalls 
eine Null. 
CARRY-Flag (C): 
Enthält eine Eins wenn ein Über- 
trag bei einer Rechnung vorhan- 
den ist, ansonsten eine Null. 
ZERO- Flag [2 
Wenn ein Rechenergebnis' Nulli ist, 
enthält es eine Eins, ansonsten’ ei- 
ne Null. 
PARITY/OVERFLOW: 
Enthält eine Eins, wenn das Re- 
chenergebnis zu groß für eine Spei- 
cherstelle (8 Bit) ist. Andernfalls 
zeigt es an, ob das Ergebnis gerade 
oder ungerade ist. 
Null = Ungerade / Eins = Gerade 
Flags werden hauptsächlich im 
Zusammenhang mit arithmetisch- 
en und logischen Befehlen ver- 
wendet... 
Arithmetische Befehle:. 
Die Z80 CPU weist die üblichen 
Befehle auf, wie decrementieren 
{DEC), incrementieren (INC), an- 
dieren (AND), oderieren {OR}, 
exclusiv oderieren (EXOR), sub- 
trahieren und addieren. Leider be- 
sitzt sie keine Befehle zur Multi- 
plikation ‘oder Division. Neuere 
CPU’s, wie die 16 Bit CPU des 
TRS-Color Computers, haben 
auch Befehle zur Multiplikation. 
Stack: 
Der Stack dient größtenteils zur 
Abspeicherung von Herkunfts- 


ROUTINE IN DER 


"ERGAENZUNGSROUTINE INITIALISIERT,® 


adressen bei Unterprogramman- 
sprüngen und zur Abspeicherung 
von Zahlen durch den PUSH-Be- 
fehl. Der Stack des Z80 arbeitet 
Im Gegensatz zum LILO Prinzip 
(Last in, last out) nach dem LIFO 
(Last in, first..out) Prinzip. D.h. 
die letzte Zahl, die durch den 
PUSH -Befehl im:Stack abgespei- 
chert wurde, wird'als erste wieder 
herausgenommen. Zum Wiederge- 
winn:einer Zahl dient der POP-Be- 
fehl: Sowohl PUSH als auch POP 
sind 36. .Bit''Befehle, deshalb ist 
PUSH A nicht: möglich, da A ein 
8 Bit Register’ist. Das SP Register 
enthält immer die Adresse, auf die 
der Stackpointer gerade gerichtet 
ist. Die im Stack abgelegten Da- 
ten werden im freien RAM abge- 
speichert. Durch den PUSH Befehl 
wird von der Zahl im SP Register 
eine 2 subtrahiert, durch den POP 
Befehl addiert. Außerdem kann 
man mit Hilfe von PUSH und POP 
den Wert eines Registerpaares an 
ein anderes auf die einfachste Wei- 
se übergeben: 

PUSH HL POP BC 

(von HL nach BC). 

Such- und Verschiebe-Befehle: 
Eine weitere Tatsache, die die ho- 
he Entwicklung des Z 80 zeigt, ist 
die, daß dieser Prozessor eine Viel- 
zahl von Such- und Verschiebe- 
Befehlen aufweist. So kann man . 
mit einem einzigen Befehl sehr 
schnell den Inhalt eines Speicher- 
bereichs in einen anderen !über- 
tragen, oder eine Reihenfolge von 
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Zahlen in einem vorgewählten Be- 
reich suchen. 

Vor- und Nachteile der Z80 CPU 
Der Z80 Prozessor: hat einen sehr 
umfangreichen Befehlssatz, der 
verglichen mit anderen 8 Bit 
CPU’s größer ist (z. B. 6502). Be- 


sonders herausragend sind die In- 
terrupt Möglichkeiten. Dieses muß 
aber mit einer etwas niedrigeren 
Verarbeitungsgeschwindigkeit im 
Gegensatz zur 6502 CPU erkauft 
werden. Um diesen Unterschied 
auszugleichen, wurde eine verbes- 


serte Version des Z80, diez 80 A 
CPU, entwickelt. Diese kann mit 
höheren Taktfrequenzen als die 
Z80 CPU getaktet werden und ist 
deshalb um einiges schneller. 


Axel Schneider 





Sicherheits-Kopien... 
Aber wie? 


Liebe GENIE DATA Leserinnen und Leser! 


Wir haben lange darüber nachgedacht, ob wir diesen Artikel in der GENIE DATA veröffentlichen oder nicht. 
Das Thema 'Kopien ziehen’ ist eine heikle Sache, und in diesem Artikel wird Ihnen gezeigt, wie man auch 
verschlüsselte Programme kopieren kann. 
Wir möchten Sie nun eindringlich bitten, gefertigte Kopien nur für Ihren eigenen Bedarf, als Sicherungs- 
Kopien zu verwenden. Bedenken Sie bitte, daß die verschiedenen Autoren lange an Ihren Programmen ge- 
arbeitet haben, und daß es nur recht und billig ist, wenn Sie nun in den Genuß des Verdienstes kommen. 


Geben Sie deshalb bitte keine Kopien aus der Hand, auch wenn es an gute Freunde sein sollte. 


Der Colour Genie EG 2000 ist ein 
wunderbarer Rechner und bereitet 
viel Freude im Hobby- und Spiel- 
bereich, sowohl beim Rrogrammie- 
ren als auch in der Anwendung. 

Diese Anwendungs- (Spiel) 
Freude wird jedoch häufig da- 
durch verleidet, daß kommerziell 
beschaffte Programme oft nur mit 
Mühe, zig Ladeversuchen und 
Kopfverstellungen (für jedes Pro- 
gramm anders) gelesen werden 
können. . 

Wie schön wäre es, hat man das 
Programm endlich einmal geladen, 
dieses auf dem eigenen Recorder 
in der gewohnten Weise aufzeich- 
nen zu können um nicht bei jeder 
Anwendung durch die gleichen 
Schwierigkeiten zu gehen. 

Leider macht hier, vor allem bei 
Maschinenprogrammen, das 
Schutzbedürfnis einzelner Herstel- 
ler und Vertreiber dem fast frus- 
trierten Anwender einen Strich 
durch die Rechnung. Immer ver- 
zwicktere Methoden werden 
ersonnen und angewendet, um 
ihre Programme zu schützen und 
ein Kopieren unmöglich zu ma- 
chen. 

Ich bin jedoch der Meinung, 


} 


daß man sich beim Kauf von Pro- 
grammen auch das Recht auf pri- 
vate Sicherungskopien erworben 
hat. Dies ist bei Diskettensyste- 
men und in der ’großen’ Datenver- 
arbeitung bereits allgemein üblich 
und auch zulässig, solange man da- 
mit nicht wieder auf den Markt 
geht und seine Kopien in klingen- 
de Münze umwandeln will. 

Dieser Artikel soll den Anfang 
einer unregelmäßigen Serie darstel- 
len, in der einzelne Schutzmecha- 
nismen vorgestellt und erläutert 
werden. Des weiteren werden An- 
leitungen gegeben, wie von diesen 
private Sicherungskopien angefer- 
tigt werden können. 

Als Hilfsprogramme wurden 
vom Autor die Programme CG- 
MON und SYSANA verwendet, 
die von R. Hübben, Verlag für Com- 
putertechnik, 5429 Marienfels ver- 
trieben werden und von denen 
selbstverständlich jederzeit private 
Kopien gefertigt werden können. 
Schutz durch Startautomatik 


Der einfachste Schutz eines Pro- 


grammes, wie er auch schon in der 
GENIE DATA beschrieben wurde, 
ist eine Startautomatik; d.h. Ma- 
schinenprogramme werden nach 


Anm. der Red. 


dem Laden sofort angestartet. 
Dies erfolgt durch hinterlegen ei- 
ner Sprunganweisung zur Pro- 
grammstartadresse in Adresse 
41E2H durch einen eigenen Da- 
tenblock auf der Cassette. Diese 
Adresse wird vom SYSTEM-Kom- 
mando angesprungen, wenn das 
Programmende auf der Cassette er- 
kannt wird, 

Diesen 
kennt man am besten dadurch, 
daß das Programm mit SYSANA 
zunächst auf Lage der einzelnen 
Datenblöcke untersucht wird. Ist 


dort ein Datenblock mit o.a. 


Adresse und Länge=3 aufgeführt, 
handelt es sich um diesen Schutz. 
In diesem Fall können Anfangs- 
und Endadresse des Programms 
direkt aus dieser Auflistung ent- 
nommen werden (Endadresse= 
höchste Däatenblockadresse + Län- 
ge-1). Verlassen Sie sich jedoch 
nicht auf eine eventuell angegebe- 
ne Programmstartadresse, diese 
muß nicht stimmen. 

Laden Sie anschließend die 
CGMON -Version, die nicht mit 
diesem Programm kollidiert. Mit: 


Hilfe des L-Kommandos laden Sie 


nun das zu kopierende Program 


Schutzmechanismus er- 












| 
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von der Cassette. Meldet sich CG- 
MON nach dem Laden, so ermit- 
teln Sie die Programmstartadresse 
durch Auslesen der Adressen 41E3 
und A41E4 mit Hilfe des T-Kom- 
mandos. Nun haben Sie alle Anga- 
ben (Anfangs-, End- und .Start- 
adresse), um von dem Programm 
mit dem D-Kommando Ihre eige- 
ne Programmkopie fertigen zu 
können. 

Die nächste Methode 

Es gibt allerdings noch verzwick- 
tere Methoden, ein Programm zu 
verschlüsseln. 

Zunächst wird ein Lader mit 
halber Aufzeichnungsdichte (600 
Baud) ab Adresse 41E2 eingelesen 
und. zusätzlich eine Speicher-Kill- 
Routine ab Adresse 41AC (wird 
angesprungen wenn beide Reset- 
Tasten betätigt werden). Ist der 
Lader korrekt geladen, wird er 
vom SYSTEM-Kommando auto- 
matisch angesprungen, schaltet auf 
normale Aufzeichnungsdichte um 
(X’'69’ in Adresse 4312) und lädt 
das eigentliche Programm. Dieses 
wird nach Beendigung des Lade- 
vorgangs über Registerpaar HL di- 
rekt gestartet. Ein weiterer Gag ist 
die Verschlüsselung des Pro- 
gramms auf der Cassette. Die La- 
deroutine enthält eine Entschlüs- 
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sellungsroutine {XOR) und Tabel- 
le, mit der das Programm vor dem 
Übertrag in den Programmspei- 
cherbereich entschlüsselt wird. 

Doch auch durch solch schlim- 
me. Sachen sollte man sich nicht 
entmutigen lassen. 

SYSANA ist keine Hilfe mehr. 
nach dem Start wird sofort Lese- 
fehler gemeldet, bedingt durch 
fehlendes Umschalten der Auf- 
zeichnungsdichte. _ 

Das Programm CGMONH steht 
Ihnen jedoch hilfreich zur Seite. 
Lesen Sie das Programm mit dem 
L-Kommando ein. Meldet sich 
CGMONH nach kurzer Zeit mit: 

A1NAC - 4269 - 0000 Name 
so hat sich diese Speichertechnik 
bereits verraten. 


Folgendes Verfahren verhilft 
Ihnen trotzdem zu eigenen Ko- 
pien: 


Mit Hilfe des K-Kommandos |ö- 
schen Sie den Speicher von 4800 
bis B7/FF mit x’00°. Mit dem M- 
Kommando setzen Sie. Adresse 
4312 = x’69’ (1200 Baud). 

Mit dem M-Kommando modi- 
fizieren Sie CGMONH so, daß 
nach Einlesen des Laders an des- 
sen Ende {vor Ansprung des ei- 
gentlichen Programms} ein Break- 
point gesetzt wird. 


Ab Adr. BE16 C3 
Ab Adr. BF60 21 
22 
3E 
32 
c3 


50 
3E 
33 
CD 
32 42 
E2 41 


BF 
BD 
42° 


Jetzt laden Sie das Programm er- 
neut mit dem L-Kommando. Die 
Ladezeit sollte jetzt wesentlich 
länger sein. Nach erfolgreichem 
Laden (kein Checksum Error) mel- 
det sich CGMONH mit Break in 
4232. 

Mit Hilfe des R-Kommandos 


"können Sie nun aus dem HL-Re- 


gisterpaar die Programmstartadres- 
se ermitteln. Die Programman- 
fangs- und Endadresse muß man 
sich etwas mühsam mit dem T- 
Kommando ermitteln, indem der 
zuvor gelöschte Speicherbereich 
von 4800 bis B7FF auf Verän- 
derungen geprüft wird (die erste 
Adresse ungleich 00 ist die An- 
fangsadresse, die letzte ungleich 
00 ist die Endadresse). 

Mit den so gewonnenen Anga- 
ben solite das Kopieren mit Hil- 
fe des D-Kommandos keine 
Schwierigkeit mehr bedeuten {sie- 
he 1.). 

Gerhard W. Wolf 





Eigentlich ist die Druckgeschwin- 
digkeit des DP 8480 mit 80 Zei- 
chen pro Sekunde schon recht an- 
genehm. Jedoch ist ein solcher 
Festwert etwas irreführend. Dieser 
Wert wird nämlich nur dann fak- 
tisch erreicht, wenn die zu druk- 
kenden Daten schon fix und fertig 
bereitliegen, etwa in Form von Va- 
riablen. Nun gibt es allerdings 
sehr viele Fälle, wo die Variab- 
len erst nach und nach gebildet 
werden und zwischendurch ausge- 
druckt werden müssen. Dies ist oft 


der Fall bei Grafikausdrucken, 
wo die einzeinen Grafik-Punkte 
oder -Zeichen erst in mehr oder 
weniger umfangreichen Einzelbe- 
rechnungen ermittelt werden. wo- 
durch nun werden solche Program- 
me so zeitintensiv? 


Hier spielt das Zusammenspiel 


des Computers mit dem Drucker 
eine große Rolle. 

In der Zeit, in der der Compu- 
ter Berechnungen durchführt, 
kann nicht gedruckt werden. Ein 
noch gewichtigerer Umstand ist, 


daß in der Zeit, in der gedruckt 
wird, Der Computer zum Nichts- 
tun verdammt ist. 

Ein Gerät wartet somit auf das an- 
dere, wodurch eine Menge Zeit 
verloren geht. 

Wer einmal mein in der GENIE 
DATA Nr. 2 veröffentlichtes Pro- 
gramm Genie Grafik Ausdruck 
ausprobiert hat, kann dies bestä- 
tigen. Denn dadurch, das in die- 
sem Programm die Grafikzeichen 
in jeder Bildschirmzeile erst druck- 
gerecht umgesetzt werden müssen, 











entstehen je nach Anzahl der Gra- 
fikzeichen längere Druckpausen, 
in denen der Rechner beschäf- 
tigt ist und nicht gedruckt werden 
kann. 

Durch dieses Handikap im Com- 
puter-Drucker-Dialog kann somit 
mancher Druckvorgang trotz 80 
Zeichen pro Sekunde sehr zeitauf- 
wendig sein. 

Der Drucker DP 8480 hat nun 
in seinem Befehlssatz zwei Anwei- 
sungen, die das Zusammenspiel 
zwischen Drucker und Computer 
zeitsparender gestalten. 

Das dem Drucker beigefügte 
Handbuch, das diesen Namen ei- 
gentlich garnicht verdient (siehe 
Druckertest des DP 8480 in 
GENIE DATA Nr.1), verliert nur 
wenige Sätze hierrüber. Darum 
möchte ich kurz das Prinzip schil- 
dern, nach dem diese Anweisun- 
gen arbeiten. 

Es sind die beiden Befehle: 
ESC X (1BH + 58H) 
ESC Y (1BH + 59H) 
In Basic lauten sie: 

LPRINT CHR$ (27)CHR$(88) 

LPRINT CHR$ (27)CHR$(89) 

Sendet man dem Drucker ESC 
X, dann wird jede nachfolgende 
Druckanweisung nicht gedruckt, 
sondern in einem sich im Druk- 
ker befindlichen Buffer (Speicher) 
zwischengespeichert. Daraufhin 
wird die Kontrolle sofort. wieder 
an den Computer zurückgegeben, 
der dann seine Arbeit fortsetzen 
kann, da die Übergabe von Daten 
an den Drucker wesentlich schnel- 
ler vor sich geht, als der eigent- 
liche Druckvorgang. 

Dadurch spart der Computer 
sehr an Zeit ein. 

Der Leser fragt sich jetzt na- 
türlich, wann die Daten denn ei- 
gentlich gedruckt werden. Hierzu 


Platinenausschnitt: DP 8480 
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dient der zweite Befehl ESC Y. 
Hierauf werden alle zwischenge- 
speicherten Druckdaten mit maxi- 


maler Geschwindigkeit ausge- 
druckt. 
Der Speicher, der maximal 


2048 Druckanweisungen speichern 
kann, gibt, wenn er voll ist, 
selbst den ESC Y-Befehl aus, 
sodaß? nach Ausdruck der Spei- 
cherdaten der Buffer wieder frei 
für neue Daten ist. 

Soweit zur Funktionsweise der 
beiden Befehle. 

Eine kleine Schwierigkeit be- 
steht allerdings noch: 

Der Speicher muß nämlich erst 
noch in den Drucker eingebaut 
werden. 

Dieser Einbau ist im Hand- 
buch erwartungsgemäß nicht be- 
schrieben, aber sehr leicht durch- 
zuführen. . 

Zunächst wird der Drucker von 
allen Kabeln (Netzschnur und In- 
terfacezuleitung) getrennt. Dann 
werden die unteren vier Gehäu- 
seschrauben entfernt. Vorsicht, 
der Drucker sitzt nur sehr locker 
ohne Schrauben. Der Gehäusedek- 
kel muß nun sehr vorsichtig nach 
vorne gebracht werden, um die 
Kabel zu den Bedienungsknöpfen 
nicht zu belasten. Dann muß 
der gesamte Druckmachanismus 
durch lösen von ebenfalls vier 


"Schrauben, die auf Gummiunter- 


legscheiben sitzen, angehoben wer- 
den. Unter diesem Mechanismus 
ist die Platine mit der gesamten 
Elektronik zu sehen. 

Wie schnell zu erkennen ist, ist 
auf der vorderen Platine ein 
Steckplatz für ein IC frei. Genau 
hier muß der erforderliche Spei- 
cherbaustein eingesetzt werden. 
Der Baustein ist, wie erwähnt, ein 
2K Speicher vom Typ: 


Hier IC d 
TMM 2016 9 
einsetzen. d 
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TMM 2016 P. 
Beim Einsetzen in den leeren IC- 
Sockel mit der Bezeichnung IC16 
muß folgendes beachtet werden: 
Die Einkerbung an der vorderen 
IC-Seite muß in die gleiche Rich- 
tung weisen, wie die Nachbar IC's, 
also bei Draufsicht nach links (sie- 
he Bild). Das Einsetzen muß sehr 
vorsichtig unter leichtem Druck 
vorsichgehen, damit die empfind- 
lichen IC Beine nicht verbogen 
werden oder Abbrechen. 

Das war’s dann schon. Gehäuse 
zusammenbauen und Drucker 
wieder anschließen. 

Geben Sie nun zum Test ein- 
mal folgendes ein: 

LPRINT CHR$(27ICHRS(88): 
LPRINT"ABCDEFGH” 
NEW LINE 

War der Einbau erfolgreich, darf 
der Drucker jetzt nichts ausgeben, 
da er nur zwischenspeichern soll. 

Auf dem Bildschirm muß jetzt 
READY erscheinen, als Zeichen 
dafür, daß die Daten dem Druk- 
ker übergeben worden sind. Als 
nächstes geben Sie folgendes ein: 
LPRINT CHR${27)CHR$(89} 
NEW LINE 
Jetzt muß der Drucker "ABCDEF 
GH’ ausdrucken, nämlich genau 
das, was er eben gespeichert haben 
sollte, 

Das IC ist im Elektronikfach- 
handel für ein paar Mark zu be- 
kommen. \ 

Jetzt kann der Drucker die in 
Berechnungen bestimmten Druck- 
zeichen erst einmal sammeln und 
erst dann ausdrucken, wenn der 
Computer seine Berechnungen ab- 
geschlossen hat. Dann werden die 
Daten mit maximaler Geschwin- 
digkeit zu Papier gebracht. 


Catharina Stodden 
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Elektronik 2 


Reihen- und Parallelschaltung von Widerständen und Kondensatoren 


Vielleicht ging es Ihnen auch 
schon einmal so. Sie suchten ei- 
nen bestimmten Widerstand bzw. 
Kondensator, mußten beim Wüh- 
len in der Krabbelkiste aber fest- 
stellen: Ich habe alle möglichen 


Typen, nur nicht den, den ich 
jetzt benötige. 

Abhilfe schafft das Zusammen- 
schalten mehrerer verschiedener 
Werte. Wie das vor sich geht, wol- 
len wir im einzelnen betrachten. 


1. Reihenschaltung von 
Widerständen 
Unter einer Reihenschaltung ver- 
steht man das hintereinander 
Schalten von Bauteilen! 


i 





‘Wir erkennen, daß der Strom (}} 
durch beide Widerstände fließt, al- 
so überall gleich ist. 
Wir können sagen: 
Strom= 

Strom des Widerstandes 1= 

Strom des Widerstandes 2 
Nach dem Ohmschen Gesetz erge- 
ben sich die Spannungen: 

U1=R1*t und 
U2=R2*1 sowie 


U=Rges*1 
Der Physiker Kirchhoff ent- 
deckte, daß die Summe der Teil- 
spannungen in einer Reihenschal- 
tung gleich der anliegenden Ge- 
samtspannung ist. Das heißt: 
U=U1+U2 
Durch das Einsetzen der Grös- 
sen R und | erhalten wir: 
I*Rges=1*R1+1*R2 
Da die Größe I in allen Teilen 


gleich groß ist, können wir die 
Gleichung verkürzen in: 
Rges-Ri+R2 
In einer Reihenschaltung von 
Widerständen ist der Gesamtwider- 
stand so groß, wie die Summe der 
Einzelwiderstände. ; 


2. Parallelschaltung von 
Widerständen 





Abonnieren - Profitieren€ 


Ein Satz, der wirklich stimmt! 


»» 


liches GENIE DATA Abonnement! 


Ein Abo der Fachzeitschrift GENIE DATA bringt Ihnen wirklich nur Vorteile. 
Zum Beispiel startet in der nächsten GENIE DATA unsere große Serie über Z 80 
Assembler-Programmierung. Ein GENIE DATA Abo stellt sicher, daß Sie keinen 
Teil versäumen. Oder Sie haben als Abonnent der GENIE DATA den weiteren Vor- 
teil, daß Sie unter der Rubrik Kleinanzeigen drei Textzeilen kostenlos erscheinen 
lassen können. 5 
Also: Füllen Sie die eingeheftete Bestellkarte aus, und sichern Sie sich Ihr persön- 
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Die Gesamtspannung (U) liegt an 
beiden Widerständen an. Der Ge- 
samtstrom (lges) teilt sich in die 
Teilströme I1 und 12 auf. 

Daraus folgt: 

Gesamtstrom= Teilstrom 1+Teilstrom2 
Iges = 11 + 12 
Wir setzen nach den Regeln des 
Ohmschen Gesetzes die Größen 

U und R ein und erhalten: 


SOFTWARE 
3 .ı&ı,. u 
Rges Ri R2 


Wir dividieren die Gleichung durch 
U. Esergibt sich: 
Be 2 len 
Rges R1 R2 
Der Kehrwert des Gesamtwider- 
standes ist gleich der Summe 
der Kehrwerte der Einzelwider- 
stände. 


Für zwei Widerstände läßt sich 
diese Gleichung etwas handlicher 
machen. Durch Umstellen erhal- 
ten wir: 

R2 
R2 


Ri .* 


Rges = AT + 


3, Reihenschaltung von 
Kondensatoren 





Wenn wir an zwei in Reihe ge- 
schaltete Kondensatoren eine 
Spannung anlegen, so werden die- 
se eine bestimmte Ladung (O) auf- 
nehmen. Diese Ladung berechnet 
sich aus der Kapazität und der an- 
liegenden Spannung. So gilt 
generell: 
- Ladung=Kapazität*Spannung 
und in der Kurzform: 

Q=-C*U 
Die beiden inneren Kondensator- 
platten haben keine Berührungs- 
punkte zu den an der Spannung 


Die beiden Einzelladungen (01, 

O2) addieren sich zu der Gesamt- 

ladung (Oges). So gilt: 
Oges-01+02 

Durch Einsetzen der Gleichung 

Q=C*U ergibt sich: 

Cges*U=C1*U+C2*U 

Wir können die Gleichung wieder 

durch U dividieren und erhalten: 
Cges=-C1+C2 


anliegenden Platten. Durch die In- 
fluenzwirkung wird auf diesem 
Innenteil ein Ladungspaar entste- 
hen, und zwar so, daß auf allen 
Kondensatorplatten die gleiche 
Ladung entsteht. 
Wir können sagen: 
Gesamtiadung= 
Ladung des Kondensators 1= 
Ladung des Kondensators 2 
Oges-01+Q2 
Außerdem gilt für die Reihenschal- 
tung: 


Uges=U1+U2 





Nachdem wir jeden Fall einzeln 
abgehandelt haben, erkennen wir, 
daß die Berechnung der Reihen- 
schaltung von Widerständen sich 
genau so verhält, wie die Berech- 
nung der 
Kondensatoren. Das Gleiche gilt 
für die Parallelschaltung von Wi- 
derständen und Reihenschaltung 
von Kondensatoren. Durch diese 


Parallelschaltung von : 


Durch Einsetzen ergibt sich: 


as „a1 , 2 
Cges c1 c2 


Die Ladung ist überall gleich, die 
Gleichung vereinfacht sich in: 


‚EN = I: + Sr 
Cges C1 .c2 


Auch hier können wir durch um- 
stellen eine angenehmere Form 
finden: 
Ges as E02 
3 cG + @& 
3. Parallelschaltung von 
Kondensatoren 


Formelgleichheit wird ein Zusam- 
menfassen der Berechnungen in 
ein Programm stark vereinfacht. 

Ein Wort zum Programm. Die 
Speicherstelle 16537 wird bei der 
Inkey-Funktion abgefragt. Der 
Befehl Poke 16537,® löscht vorei- 
lig eingegebene Zeichen. 


Bernd Kaiser 
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10 RER sukane 
20 CLEAR 100 
30 £L5 


B. KAISER MAI ’02 was 


40 PRINTELO, "UNRECHNUNG PARALLEL- IN REIHENSCHALTUNG” 
50 PRINTE7&, "FUER WIDERSTAENDE UND KONDENSATGREN" 
&0 PRINTSPRINT"NOECHTEN SIE NIDERSTAENDE {1) DDER KONDENSATOREN (2) BERECHNEN?" 
70. ES=INKEY$STIFESCH" L"ANDESCH"Z"THEN7O 

B6 IFES="L"THER Ni$="WIDERSTAND ":N2$="GESANTNIDERSTAND = * 
90 IFES="2"THEN Ni$="KONDENSATOR"SN26="GESAMTKONDENSATOR = " 
160 PRINT:PRINTEISO"L. "5Ni$35INPUTN 

"Ni63" IN REIHE {R) ODER PARALLEL {P) GE-SCHALTET ? {R OBER.P EINGEBEN)" 


110 PRINTE7AB, "WIRD DER NAECHSTE 


120 POKE 1633750 


150 R6=INKEYSS IFRESH"R"ANDRECH"P"THENIIG 
130 TFRS="R"ANDES="1"THENGOSUBZIO 
150 IFR$="R" ANDES="2"THENGBSUB2SO 
160 IFRS="P"ANDES="1"THENGOSUB2SO 
170 TFRS="PPANDES="2"THENGDSUB210 


180 PRINTBAAB,STRING$ (60, 32) 
190 PRINTE44B, N26; N 
200 BOTOL1G 


210 REN REIHEN- WIDERSTAND > PARALLEL- KONDENSATOR 


220 PRINT"DER KAECHST 
230 N=N+NI 
240 RETURN 


"sN1$3" - NERT"SEINPUTN 


250 REM PARALLEL- WIDERSTAND 5 REIHEN- KONDENSATOR 


260 PRINT"DER NAECHSTE "5N1$5" - 


270 N=iN#N1) Z{N+ND) 
280 RETURN 


WERT"SSINPUTNI 





Script I) 


Dieses Programm zeigt eine der 
Möglichkeiten, wie man die Gra- 
fikfähigkeit eines Druckers nutzen 
kann. Hier mit einem Spezialzei- 
chensatz : Schreibschrift. 

Das Programm wurde auf einem 
EG 2000 Colour Genie mit 32K 
RAM und Basic-Compiler erstellt. 
Als Drucker wurde der STAR DP 
510 benutzt. 

Da das Programm für Compi- 
ler geschrieben wurde, sind bei 
Verwendung des normalen Basic 
Änderungen nötig, die wichtigsten 
sind im Listing enthalten. 

Im Programm ist eine einfache 
Zeicheneingaberoutine mit be- 
schränkter Editiermöglichkeit 
vorhanden {Löschen von Zeichen 
durch die 'Pfeil-nach-Links-Taste’). 
Andere Zeichen, als die im Zei- 
chensatz angegebenen, werden 
nicht angenommen. 


Im folgenden eine ausführliche 

Programmerklärung. 

Zeile 120 
COLOUR 16° schaltet auf weiße 
Zeichenwiedergabe. 'GOSUB 990’ 
springt auf die Poke-Routine zum 
definieren der Schreibschrift für 
die Bildschirmausgabe, durch die 
frei programmierbaren Grafikzei- 
chen des Colour Genie. . 

Zeile 130 
Die Variablen At, A2 und BI stel- 
len die Anfangsadresse dar, ab de- 
nen der Compiler die Strings B$, 
AS und H$ ablegt. Im normalen 
Basic stimmen diese Adressen 
nicht! Diese Zeile entfällt bei Ver- 
wendung des normalen Basic. 

Zeile 160 
Durch die Abfrage der Speicher- 
stelle -1984 wird der Zustand der 
BREAK-Taste abgefragt. Dies ist 
nur im Compiler notwendig, da 


Eine Schreibschrift für 
das. Cokourn Genie und den STAR DP 510 


dieser keine ‚selbständige Abfrage 

während des Programmlaufs 

durchführt, 
Zeilen 180 - 240 

Den Funktionstasten Fi - F7 

werden die Umlaute wie folgt 


- zugeordnet: 


FI=&,F2=üFr3=6,F4=ß. 
F5=-Ä,F6=0U,F7=6. 

Zeilen 260 - 300 
Umkodierung der normalen 
ASCII-Zeichen auf die  Schreib- 
schrift-Grafiksymbole und Test ob 
"Rücktaste’ oder Return’ (CHR$ 
(8) bzw. CHR$ (13)). 

Zeile 310 
Zeilenende-Markierung durch Aus- 
gabe eines Ton’s. Der DP 510 ar- 
beitet mit zwei verschiedenen Gra- 
fikauflösungen. In der hohen 
Auflösung darf die Anzahl der ein- 
gegebenen Zeichen 120, und in 
der niedrigen 60 nicht über- 





schreiten. Bei Verwendung des - 


normalen Basic Sollte Z2 nur bis 
100 laufen. 

Zeilen 370 - 970 
Diese DATA-Anweisungen sind für 
die Generierung der Schreibschrift 
auf dem Bildschirm des Colour 
Genie. Für Benutzer anderer 
Rechner können Sie entfallen. 

Zeile 990 

"CHAR 1° schaltet den Zeichen- 
satz auf die programmierten Gra- 
fikzeichen um, die dann einge- 
lesen werden. Entfällt für ande- 
re Computer. 

Zeilen 1030 - 1070 
Umkodierung der Zeichen für die 
Druckerausgabe. Bei Verwendung 
eines anderen: Rechners entfällt 
Zeile 1030. Zeile 1050 und Zei- 
le 1060 muß wie folgt geändert 
werden: 

1050 IFA > 96THEN C=A95 ! 

GOTO 1070 
1060 C = A-64 
Zeile 1080 

Umschaltung des Druckers in den 
Grafik-Mode. Es werden jeweils 8 
Datenbytes übertragen (8+256*0). 
Die Druckeransteuerung wurde, da 
der Basic-Interpreter des Colour 
Genie nicht exakt überträgt, über 
ein kleines Unterprogramm vor- 
genommen. 


ıöÖ REM SCRIPT 
29 REM 
O0 REM 
40 REM 
SO REM 
»0 REM 
79 REM 
SO REM 
70 REM 
100 REM 
110 REM 


VON UWE SCHMIDT 


SOFTWARE 


Zeile 1090 
Entfällt bei Verwendung eines an- 
deren Compüters. Die Anweisung 
"RESTORE' ist dann aber am An- 
fang der Zeile 1100 noch einzu- 
fügen. 

Zeile 1100 
Simulierung der Anweisung 'RES- 
TORE (Zeilennummer)’. 

Zeilen 1150 - 1200 
Unterprogramm zur Druckeran- 
steuerung. Der. Drucker wird di- 
rekt über den Parallelport ange- 
steuert. Dieser Parallelport kann 
beim Colour Genie über die Ba- 
sic-Anweisung 'SOUND' gesteuert 
werden, da der eingebaute Sound- 
generator über zwei Register die- 
sen Port realisiert. Die Anwei- 
sung ’JOY1X’ wird normalerweise 
zur Abfrage der Joystickstellung 
benutzt, kann aber auch zur Sta- 
tusabfrage des Druckers benutzt 
werden. Ist der Drucker Ready 
dann ergibt sich der Wert 1, an- 
sonsten 64. 

Zeilen 1290 - 2200 
"Zeichengenerator' für den Druk- 
ker. Es können beliebige andere 
Kodierungen vorgenommen wer- 
den. Man sollte aber darauf ach- 
ten, wie der jeweilige Drucker die 
Grafik darstellt. Beim STAR DP 
510 wird immer ein vertikales 


iC) JUNI 1985 


120 COLDUR1&1 CLEAR2000 1 CLS: GOSUBFFO 
130 A2=30720:A1=30752: B1=30944 1 REM COMPILER-ANFANGSADRESSEN FUER A#,B%., 
H$® {ENTFALLEN BEI NORMALEN BASIC) 


140 B6="":GOT0150 
150 PRINTCHR$ (14) 1 


21 


Byte gedruckt, d.h. die Buchsta- 
ben werden nicht, wie bei übli- 
chen Zeichengeneratoren, zeilen- 
weise kodiert, sondern spalten- 
weise. Näheres hierzu entnehme 
man aus den jeweiligen Hand- 
büchern. 

Zeilen 2220 - 2240 
Unterprogramme zur Simulierung 
der MID$-Funktion, da im Co- 
lour-Compiler diese Funktion 
nicht implementiert ist. Bei Ver- 
wendung des normalen: Basic set- 
zen Sie bitte die im Listing ange- 
gebene MID$-Funktion ein, da 
sonst das Programm nicht läuft. 

Im Programm wurde absichtlich 
nicht auf schnelle Verarbeitung ge- 
achtet, da es nur zur Demonstra- 
tion dienen und leicht analysier- 
bar sein sollte. Durch die Compi- 
lierung kann man jedoch die Ge- 
schwindigkeitsverluste wieder aus- 
gleichen. Falls man die Umwand- 
lungs- und Druckroutinen jedoch 
in ein Textverarbeitungsprogramm 
einbindet, kann durchaus ein prak- 
tischer Wert entstehen, z. B. bei 
der Erstellung von Texten mit 
mathematischen, physikalischen 
oder chemischen Formeln, oder 
allgemein bei Erstellung und Aus- 
druck von Spezialzeichensätzen. 

Uwe Schmidt 


160 AS=INKEY$ı IFAg=""THENIFPEEK (-1984) »4THENSTOPELSEIFFEEK (-1984) =4THEN 


STOFELSE150 


170 REM TEST AUF UMLAUTE UND UMKODIERUNG DER ZEICHEN 
180 IFASC (A®) =F72THENA$=SCHRE (181) 1 GOTOS1O 
190 IFASC (A$) =?73THENAS=CHR# (182) ı GOTOS1O 
200 IFASE (A) =?4THENAS=CHRS$ (183) s 5GOTOSIO 
210 IFASC(A®) =75THENAS=CHRS (184) ı GOTOSIO 




















SOFTWARE 





IFASC (A$) "124 THENAS=CHRE (185) ı GOTOFIO 
IFASC (A®) 125 THENA#=CHRE (186) ı GOTOFIO 
IFASC (A$) =126 THENAS=SCHR$ (187): GOTOSLO 


IFASC (A$) 4A THENAS=CHRE (188) 1 GOTOSIO 


IFASC (A$) >=645THENIFASC (A$) <=9OTHENAS=CHRS (ASC (A$) +90) 1 GOTO2BO 
IFASC (A$) >=97 THENIFASC (AS) Le L 22 THENASSCHRS (ASCIA$I #31) 


IFASC (AS) =13THENIOLO 


IFASC (A$) =BTHENGOSUB22730 1 B$=H$ ı FRINTCHRS (8) 1 ı GOTOL160 
IFASC (A$) <TZTHENIGOELSEIFASC (A$) PIFLTHENI&EO 
IFLEN {B$) =100THENFLAY (1,.4,4, 19) : FORZZ=0T05000: NEXTZZIFLAYt1.4,.0,0) 


B$=Bs+A$ 
FRINTASCHR$ (14) 3 
GOTOLS5O 

END 


REM DATA-ZEILEN FUER FROG.GRAFIKZEICHEN BEI EG-2000 


DATAO48, 072,132, 132, 292,133, 134,000 
DATAOS&, 068, 068, 120, 068, 069, 058, 000 
DATAOS6, 068, 064,064, 192,071, 056, 000 
DATA120, 068, 068, 068, 068, 071, 120,000 
DATAOS&, 064,064, 120,064, 067,060, 000 
DATA120, 064,064, 064, 120, 071,064, 000 
DATAO&0, 064, 064,078, 066, 067, 060,000 
DATA228, 036, 036, 044, 052, 101,166, 000 
DATAO04, 004, 004, 004,068, 071,056, 000 
DATA124, 004, 004,004, 068, 071,056, 000 
DATAO48, 072, 080, 096, 080, 073,070, 000 
DATAOOS,. 004, 004, 06B, 164, 159, 096,000 
DATAO99, 085, 073, 073,073, 065, 065, 000 
DATAO98, 082, 082, 082,074, 075,070,000 
DATAO&O, 066, 066, 066, 066, 067,060, 000. 
DATA120. 068, 068, 068, 120, 071,064, 000 
DATAO&O, O&6b, 066, 066, 090,070, 063,000 
DATA120.068, 068, 120, 096, 081,078, 000 
DATAO28, 034, 032,016, 012,003, 034, 028 
DATA254, 016,016, 016, 016, 017,030, 000 
DATAO68, 068, 068, 068, 068, 068, 127,000 
DATAO&6, 066, 066, 066, 066, 039, 024,000 
DATA130,. 150,146, 146, 146, 147, 124,000 
DATAO&&, 066, 036, 024, 024,039, 066, 000 
DATAO&&. O66, 066, 036, 024,031, 024,000 
DATA126, 066, 004,008, 016,033, 126, 000 
DATA000, 000, 000,000, 000, 000, 000,000 
DATAO00, 000, 056, 068, 068, 071,056, 000 . 
DATAO9&, 144,136, 136, 072,177,014, 000 
DATA000, 000, 056, 068, 064, 193, 062,000 
DATAO02. 002, 002, 062, 066, 195,060, 000 
DATAO00, 000, 056, 068, 120, 065, 062, 000 
DATA112, 136, 136, 080, 224, 063, 032,032 
DATAO00, 000, 028, 034, 034, 223, 002, 060 
DATAO64, 064, 064, 120, 068, 197,070, 000 
DATAO16, 000, 000, 016, 016, 243,028, 000 
DATAO00, 000, 028, 002, 002, 195,034, 028 
DATAO64, 064,072, 080,096, 209, 078,000 
DATAO12, 018, 018,018, 124, 144,031,000 
DATA000, 000, 000, 127, 201 ,073,073,000 
DATAO00, 000, 000,060, 100, 167,036, 000 
DATAO00, 000, 056, 069, 068, 196, 056, 000 
DATA000, 000, 056, 068, 068, 251,064, 064 
DATA000, 000, 028, 034, 226, 031, 002,002 














SOFTWARE 


I 


810 
820 
330 
840 
350 
960 
970 
380 
870 
90 
?10 
220 
?30 
40 
250 
250 
A270 
80 
9930 
1990 
1010 
1020 
iOSO 
1040 
1950 
10860 
1070 
1080 
10909 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 


DATAO00, 000, 000, 028, 018, 241,016, 000 
DATAO00,. 000, 060, O&6, 066, 195, 012, 000 
DATAO00, 016,016, 124,016, 017,030, 000 
DATAO000 , 000, 000, 072,072, 201,126, 000 
DATAO00, 000, 000, 068, 070, 041,016, 000 
DATAO00, 000, 000,073,073, 201,127, 000 
DATAO00, 000, 000, 036, 024, 153,036, 000 
DATA000, 000, 018, 018,030, 130, 066, 060 
DATAO00, 000, 000, 062, 068, 137,063, 000 
DATAO00, 132, 000, 056, 068, 197, 126, 000 
DATAO00, 036, 000, 036, 036, 231,060, 000 
DATAO00, 068, 000, 056, 069, 196, 056, 000 
DATAOS6, 068, 068, 088, 072,071,120, 064 
DATA153, 036, 066, 066, 126, 067, 066, 000 
DATAO3&, 000, 068, 068, 068, 071,124, 000 
DATA132, 120,132, 132, 132,135, 120,000 
DATAO12, 018,008, 020,020, 008, 036, 024 


REM ZEICHENSATZ FUER EG-2000 WIRD GENERIERT 
CHAR: RESTORE : FORA=&HF4OOTO&HFSET7 ı READB  FOKEA,. Bı NEXTA: RETURN 
REM ZEICHEN FUER DRUCKROUTINE DEKODIEREN UND DRUCKEN 


FRINTCHR$ (1?) 1: FRINTIFORI=1TOLEN (B#) 
GOSUBZZZ0:A=ASC (AP) 

IFA=1BBTHENA=54 
IFA>SLTHENIFASSSTHENE=A-31+59: 60TO1070 
IFA>ISATHENC=A-155+27:60T01070 

CaA-127 

DeQß-i 


LPRINTEHRS (Z7 I "L'CHR$ (8) 1: Z1=0: GOSUB115O 


RESTORE ı FORF=OT0487 : READL : NEXTF 
FORX=1 TODKB: READK: NEXTX 

FORX=0T07 1 READKı Zim=kı GOSUBL11S50:NEXTX 
NEXTI 

PRINTıLFRINTı BSe" ", GOTO1SO 


REM UNTERFROGRAMM FUER DIE DRUCKERANSTEUERUNG 
IFIOYIX>ITHENIA1SO:REM DRUCKER-STATUS ABFRAGEN 

SOUND? „255: REM FORTS AUF AUSGABE SCHALTEN 
SOUND14. ZI: REM INHALT VON Zi ZUM DRUCKER UEBERTRAGEN 


SOUND1S, 254: REM STROBE LOW 
SUUNDIS, 255: REM STROBE HIGH 
RETURN 


REM DER DRUCKER WIRD UEBER DIE BEIDEN FARALLEL-T/O-REGISTER DES 


UNDGENERATORS ANGESTEUERT (REGISTER 14/15) 


1220 
1230 
1240 
12590 


1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 


REM 
REM 
REM 


REM DATA-ZEILEN FUER DIE DRUCKROUTINE {VERTIKAL KODIERT. 


REM NORMALE ZEICHENGENERATOREN KODIEREN HORIZONTAL. 


REM 

REM 

DATA 62.72,136,136,72,42,2,4ı1REM A 
DATA 0,124,146,146, 146, 108,2, 4: REM B 
DATA 8.124,130,130,130,68,4,4ı1REM C 
DATA 0,254,130,130,130,124,4,4:REM D 
DATA 0,124,146,146,146,2,4,41REM E 
DATA 0,254, 136,136, 136,4,4,Aı1REM F 
DATA 0,124,130,130,146, 146,28, 4ıREM G 
DATA 130,132, 254,8, 16,254,2,2ıREM H 
DATA 0,12,2,2,2,252,4,4ıREM I 

DATA 0,140,130,130,130,252,4,41REM J 
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so 
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1190 
14090 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 


1590 


1800 
1610 
1620 
1530 
1640 
1450 
1550 
1570 
16580 
15970 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1740 
1950 
1960 
1970 
1980 


DATA 
DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 





SOFTWARE 


0,254,16,40,68, 120,2, 21REM K 
12,18,10,4,4, 252, 172, 4ıREM L 
0,254, 1728,64,56, 64, 128, 2541REM M 
0,254,128, 112,12, 2,254, 41REM N 
0,124, 130, 130,130,130,124,4:REM 0 
0,254,136, 156,136, 116, 4,4:REM F 
0,124, 130,138, 138,134, 126, 2: REM Q 
0,254, 152,148, 146,98, 2,4:REM R 
0,0,98,145,137,137,70,41REM 8 
128,128, 128, 254,130, 170,130, 4:1REM T 
0,254, 2,2,2,254,2,2:REM U 
0,248,4,2,2,4,252,4:REM V 
252,2,2,62,2,2,252,4:REM W 

0,194, 36,24,24,36,198,4:REM X 
0,224,16,14,14,20,228,4:REM Y 
0,194,134,138,146,162,194,4: REM Z 
0,28, 34,34,34,28,4,4ı1REM a 
116,136, 132,68, 58,2, 2,4:1REM b 
4,28,34,34,34,18,2,4:REM c 
4,12,18,18, 18,18, 252, 41REM d 
0,28,42,42,42,18,2,41REM e 

104, 152, 143,20, 100,4,4, 41REM f 
4,4,25,37,37,37,20,4:REM g 

4,254, 16,16, 16, 14,2,4:REM h 
4,4,4,158,2,2,4,4:REM i 
4,4,2,33,33, 161,20, 41REM ; 
4,254,8,20,34,2,2,41REM k 

4,8,8, 126, 138,138, 114, 2ıREM 1 
8,30,16,16,30,16, 16, 30: REM m 
4,8,30,16,16,30,4,4ıREM n 
4.28,34,34,74,50,32,16:REM o 
4,31,36,76,36,24,4,4:REM p 

8,8, 24,36,36, 36, 31,41 REM q 


4,4,4,30,16, 16,8, 4:REM r 


4,28, 32, 32,34,74,28,44REM s 
0,16, 16,126, 18,18, 2,4ıREM t 
4,3090,2,2, 30,2, 2,4:REM u 
0,24,4,2,4,24,8,4:REM v 
4,30,2,2,30, 2,2, I01REM w 
4,2,18,12,12,18,2,4:REM x 

4 2 1,97, 9, 9, 62, Oı REM Y 

4,8, 18,18, 22,26, 18,6ıREM z 
1298, 28,14, 34,34,1956,4, 4: REM 
4,4,94,2,2,94,4, 4: REM ü 
4,76,18,18,18, 92,16, 8:REM 
0,127,130, 146,154, 100,4, 4:REM RB 
128,62, 72,136, 136, 72,62, 1321: REM ä 
0,62,130,2,2,190,4,4:REM ü 
1098, 66, 66,66, 66, 188,4,4: REM 8 
0,04, 0,0, 0, 0, 0, OEREM " " 

0,0, 0, 242,0,0, 0,01 REM ! 
0,0,224,0,224,0,0, 0: REM " 
0,40,254,40,254,40,0,0ıFREM # 
0,36, 84, 254,84, 72,0,0ı1REM ®& 
0,196, 200, 16,38, 70,0,01REM % 
0,12,114,154, 100, 10,0,0:REM & 
0,0, 32,64,0,128,0,0: REM ° 
0,0,56,68, 130,0, 0,0:REM 
0,0, 130, 68,56, ,0,0,0ı REM ) 
0,40,16, 124, 16,40, 0,0:REM % 

















SOFTWARE 








1990 DATA 0,16,16, 124, 16,16,0,04 REM + 
2000 DATA  0,0,2,4,8,0,0,01REM , 

2010 DATA 0,16,16, 16,16, 15, 0,0: REM - 

2020 DATA 0,0,6,6,0,0,0,01REM . 

2030 DATA 0,4,8,16,,32,64,0,0:REM / 

2040 DATA 0,124, 130, 130, 130, 124, 0,01 REM O 
2050 DATA. 0,0,66,254,2,0,0, 0: REM 1 


2060 DATA 0,66, 134,138,146,98,0,0:REM 2 
2070 DATA 0,132, 120, 162, 210, 140, 0, Oı REM 
2080 DATA 0,24,40,72,254,8,0,0ı REM 4 
2090 DATA 0.228, 162,162, 162, 156,0, 0: REM 
2100 DATA 0,60,82,146, 146, 12,0,01REM & 
2110 DATA 0.128.142, 144,160, 192,0, 0: REM 
2120 DATA 0,108, 146, 146, 146, 108,0, O0: REM 
2130 DATA 0.96,146,146,148,120,0,0ı REM # 
2140 DATA  0,0,108,108,0,0, 0,01 REM ı 
2150 DATA 0,0,2,44,0,0, 0,01 REM ı 
2160 DATA 0,16,40,68,130,0,0, 01 REM £ 
2170 DATA 0,40,40,40,40,40,0,01REM = 
2180 DATA 0,0,130,68,40,1&,0,0ıREM > 
2190 DATA  0,64,128,142,144,96,0,0ıREM ? 
2200 DATA  0,0,2,89,165,154,68,0ı REM $ 
2210 END 

2220 As="": POKEA2,FEEK (Al+(I-1)) 1 POKEA2+1,OTRETURN:REM UP. FUER FUNKTIO 
N ’A$=MID 8(B$,1,.1)”’ BEI NORMALEN BASIC MIDS-FUNKTION BENUTZEN !! 
2230 L=LEN(B#) ı Xi=L-2 

2240 He" HFORTL=OTOX1IPOKEBI+IL.PEEK(AI+IL)INEXTILIPOKEBI+IL, O: RETURN 
2250 REM UP. FUER FUNKTION "H$=MID#(B#,1,LEN(B#S)-1)"’ BEI NORMALEN BAS 
IC MID$-FUNKTION BENUTZEN !! 

2260 END 


id 


8 


N 


Das Programm erzeugt folgenden Ausdruck: 


Jen nt in Demtartastitantext! 

Nıt diesem Aragon mund Ge 1m den lage Schnußschnift auf den Buldachiem Ihren Coßvun-Genien zu Inimgen 
4ene Schrift such vummudrucken, nefemn Ge einen grophakkührgen Drucken Nenıtzer. 

Ic Ansgnoem int auf den STAR DR 510 odgentimmt. 


ers 
SBREBERGHJIJIKAMNORGSR STUNUX N Zoo det ya hrs jkim dpa nn tuvmun da 
IZASRTEIGS TER TG ic) 01H+= 


4üäuaß il? Da; 8, 























Für Anfänger im Programmieren 
des Z 80 Assembler ist es oft 
schwer, sich durch die Vielzahl 
von Befehlen und Registern hin- 
durch zu finden. 

Das vorliegende Programm kann 
. man als eine Einführung in eine 
Assemblersprache verstehen, aber 
es soll auch zum Weiterexperi- 
mentieren anregen. Dieser Mini- 


SOFTWARE 


rechner ist ein kleiner Assembler 
mit zwei Registern: 
PC (Programmzähler) 
ACC (Akkumulator) 
Die zur Verfügung stehenden 
Befehle werden vom Programm 


vorgestellt. Das Befehlsformat 
sieht wie folgt aus: 
(Label:) Opcode (Adresse (i}) 


Die Befehlsteile in den Rund- 


klammern können wegfallen. 
Ein Beispiel: 

start: bun fi 
Der Minirechner springt zu der 
Programmzeile, deren Nummer in 
der Programmzeile Nummer 1 
steht. Mit ‘'bun start’ kann man 
den Minirechner zu dieser Bei- 
spielzeile verzweigen lassen. 
Ein Beispielprogramm: 


Befehl 
Programmzeile ® : argi: 45 
Frogrammzeile 1 : arg: 69 
Frogrammzeile Z : start: bsa g9t 
Programmzeile I; out result 
Frogrammzeile 4 : hlt 
Programmzeile 5 : ggt: Ida argl 
Programmzeile & : sub arg? 
Programmzeile 7 : beg end 
Programmzeile 8 > bgr store 
Programmzeile 9: ida arg2 
Programmzeile 19% sub argl 
Programmzeile 11 sta arg? 
Programmzeile 12 bun ggt 
Programmzeile 13 store: sta argl 


Programmzeile 14 
Programmzeile 15 
FProgrammzeile 1& 


bun ggt 


end: l1da argi 
sta result 


Programmzeile 17 ret 
Programmzeile 18 result: 8 
Programmzeile 17 bgn start 
Frogrammzeile 2 : srt 


Dieses Programm gibt den größten 
gemeinsamen Teiler der beiden po- 
sitiven Zahlen bei argl und arg2 
aus. Das Programm beginnt bei 
Zeile 2. Deshalb wird in Zeile 
19 der Programmzähler auf das 
Label ’start’ gesetzt. Man hätte 
genausogut 'bgn 2° eingeben kön- 
nen. Der Minirechner steht nun 
auf Zeile 2 im Programm und 
wird mit ’srt' gestartet. Errech- 
net wird der GGT von 45 und 
60. Nachdem das Ergebnis aus- 
gegeben ist, erscheint die Mei- 
dung: ; 
Programmzeile 4: ... 

Nun kann man andere Zahlen 


eingeben. 
Programmzeile 4: bgn ® 
Programmzeile d: 30% 
Programmzeile 1: 256 
Programmzeile 2: srt 
("bgn 2’ ist überflüssig) 

Die Befehle im Direktmodus 
werden nicht im Programm abge- 
speichert. Man überschreibt mit 
ihnen also keine Programmzeile! 

Als Erweiterung bietet sich z. 
B. der Befehl 'new’ an, der ein 
vorhandenes Programm löscht. Mit 
der Basiczeile: 

355 If OP$= "new'' THEN PC = 
B:SC=B:ACC=$:RC=B 
: GOTO 158 


16 REM Minirechner 


ist man schon fertig. 
Wenn Sie keine Diskettensta- 
tion angeschlossen haben, brau- 


chen Sie trotzdem nicht zu ver- 


zagen: 

Die Programmzeilen 340 - 350 
und 1030 - 1340 werden gestri- 
chen. In Zeile 170 wird 'LINE 
INPUT’ durch 'INPUT’ ersetzt. 
In den Zeilen 800 und 860 wird 
der Befehl 'CMD "F=POPR’ ’ er- 
satzlos gestrichen. Schließlich wer- 
den die Kleinbuchstaben einfach 
durch Großbuchstaben ersetzt. 


Bernd Plumhoff 


ee 2 
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| 2a GOSUR 9608 
| sa CLEAR 4aacı 
40 DEFINT A-Z 
oa MB=208: REM Maximale Frogrammlaenge 
&5 ML=70: REM Maximale Anzahl der Labels 
79 MR=2899: REM Maximale Anzahl von Unterprogrammaufrufen 
ga DIM F&S{iMR), STEIML), STIML), RS{MR) 
72 REM Programmz aeshler /Akkumulator /Opcode/ 
Symboltabellenzeiger /Returnstackzeiger 
ion PL=& 
118 ACC=& 
| 129 DP$S="" 
| 130 SC=® 
140 RC=& 
159 Eye" 
16% FRINT "Programmzeile";PC3": "3 
17@ LINE INPUT Es$ 


| 198 IF E$="" THEN PRINT "Fehlerhafte Eingabe!": GOTD 15% 
| 198 REM Blanks eliminieren 

| a0 I=a 

| 216 I=I+1 

| 220 IF MID$(E$, I, 1)=" " THEN 


E$=LEFT$(E$, I-1)+RIGHT$(E$, LEN{E#)—-I): I=I-i 
| 2Ss0 IF I<LEN{E#$) THEN 219 
| 24@ REM Label eingegeben? 
250 I=8 
ead I=TItl 
278 IF MIDS{E$, I, 1}="2" THEN D$=SLEFT${EF, I-1): 
SDSUB 849: ST$(SC}=D$: ST{SC)I=PC: SC=5C+l: 
E$=RIEHT$ (E$, LEN(E$)-D: GOTO 290 
288 IF I<LEN(E$) THEN 2409 
| 2970 OP$=LEFT$ (ES, I) 
| >90 IF OP$="bgn” THEN E#=RIGHT#$ (E#$, LEN{E$)-I): 
GOSUR 720: Pl=eAD: GOTO 159 
a IF OP$="srt" THEN CLS: GOTO 406 
a IF OP$="1lst" THEN FOR I=8 TO PC-1: FRINT F$(I)}: 
NEXT I: EOTD 1590 
SS@: IE OP$="hlpe" THEN GOSUB 998: 
34@ IF, OPt="sav" THEN GOSUB 1040 
350 IF OP$="lod”" THEN GOSUR 1216: 
>68 F$(PC)=E# 
S7e@ PC=PC+1 
S88 GOTDO 159 
396 REM Interpreter 
492 DE=INKEYE 
410% IF D$="c" THEN 1590 
429 E$=F$ (PC) 
438 PRINT @ @,"pc :"5PG;5 
| 44@ PRINT @ 54,"acc 2"; ACCH 
| 450 PRINT ®@ 129, STRING$(20," "35 | 
46@ PRINT @ 128," (pc): "3F$(PC)5 | 
47@ PRINT @ 192,""3 
489 OPE=LEFT#{EF, ID) 
490 E$=RIGHT$ (E$, LENIE$)-T) 
60 IF OP$="iac" THEN ACC=SACC+Hl: GOTD 490 
Ssi2e IF OP$="dac" THEN AGCCSACC-1: GOTO 496 
528 IF OP$="hbun" THEN GOSUR 728: PC=AD: GOTOG 409 
ss IF OP&="cla" THEN Ablc=6: GOTO 5499 
a4a IF 0OP$="1da" THEN GOSUR 720: ACC=VALIF$(AD)): GOTO 4998 
a6 IF DP&="sta“" THEN GOSUR 7207 F$(ADI=STR$SCACC): GOTO 5908 


SOTO 150 
6070 156 
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Sa0 
578 
580& 
So0 


918 
208 
936 
949 
250 
a0 


874 
8380 
990 
7060 


919 


7209 
I:0 
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IF OP$="add" THEN GOSUB 720: ACCSACCHVALIFS(CAD)): GOTDO 698 
IF OPs="sub" THEN GSOSUR 728: ACCeACC-VALIFS{ADI)S GOTO 49 
IF OP$="mul" THEN GOSUR 720: ACCSACCHVAL(FS{AD)): GOETO 699 
IF OPs$s="div" THEN GOSUR 729: IF VAL{F$S{AD)I)=O THEN 
PRINT "Division durch Null in Zeile":PC;"!": GOTO 150 
ELSE ACC=SACC/VAL (F$(ADI): G0TD 598 
IF OP$&="bea" THEN IF Alb=b THEN GOSUR 720: PC=AD: GOTO 40% 
ELSE 49% 
IF OP$="bsa" THEN GISUR 728: RS{IRC)=PC+rl: Ro=Ro+r: 
PC=AD: GOTO A499 
IF OP$="ret" THEN Ro=RC-1: PCE=RSCREI: GOTDO 499 
IF Of$="oaut" THEN GOSUR 728: FRINT VAL{F$(ADII: GOTO 698 
IF OP$="bgr" THEN IF ACC>e THEN GOSUR 720: PC=AD: GOTO 40% 
ELSE 47% 
IF OP$="ble" THEN IF ACC{® THEN BOSUR 720: Pl=Ab: GOTD.400 
ELSE 4976 
IF OP$="hlt" THEN PRINT: PRINT: GOTO 158 
FRINT "Syntaxfehler in Zeile";5PG:": "3FsiPE); "TFYIT" 
GsoTa 1598 
PC=P6+i1 
GOTO 499 
REM Unterprogramm zur Berechnung der Adresse 
F=% 
IF RIGHT$ (ES, 1)="1" THEN F=-1: E&=LEFT$(E$, LEN{E$)I-1) 
IF ASC{LEFT$S(E$, 1))>64 THEN 780 
AD=VALTES$) 
IF rF THEN AD=VAL(F$CAD)) 
RETURN 
=-1 
I=I+i . i 
IF I=SG THEN EMB"F=ROPR": PRINT- "Syntasfehler-in Zeile"; 
PE3"! 
Bas Label *""3E$;5"’ ist undefiniert!": GOTD 156 
IF ST${I)=E$THEN AD=ST(I): GSOTO 769 
GSDTD 79% 
REM Ist das Label schon in der Symboltabelle? 
IF SC=&@ THEN 880 
FOR J=a TO SC-1 
IF DE=ST$(J) THEN CMD"F=POPR": PRINT "Das Label "5; 
D$#3"" war schon in Zeile"535TtJ)3;"definiert!": GOTO: 150 
NEXT J 
RETURN , 
REM Liste der Befehle ausgeben 
ELS : 
FRINT "Minirechner 


Direkter Modus: 


kon <adr> "pc ı= <adır) 

srt Programmstart 

ist Listen des Programmes" i 
PRINT "hlo Liste dieser Befehle aufrufen" 
PRINT "sav Speichern des Programmes 

auf Diskette bis pc - 1 sr 

load Laden eines Frogrammes von Diskette" 
PRINT " 

Programmadus: 

ida sadr> acc := «adr> 

sta Zadr> i adrz := (acc) 


add <adr > acc :ı= acc + Sadr " 
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70 DES=-INKEYS 
Fa IF Di="" THEN 99 
776 PRINT "zub <sadr > acc := acc — Zadrr 
cla acc ı= 6" 
aa PRINT "out <adr> Print <adr >" 


FRINT"bsa <adr> 
ret . 


Sprung zu fadr> 





Sprung zur Subrautinre ab <adr> 
Return von Subroutine 
iac acc := acc +1 
bun <adr> 
wenn acc = 8 


acci® 


ahlige Division!) 


RETURN 

REM Eingabe von Diskette 
OPEN "T",1,"PROGRAMM/DAT" 
INPUT #1, PC 





FOR I=6 TO FC-1 


beg Jacdr} Springe nach «adr>, 
hlt Programmende" 
1666 PRINT"bge <adr> Springe nach “adr>, wenn acc > 6 
ble Zadr} Springe nach <adr>, wenn 
mul dadr} acc »= acc * dadr} 
div <adr> acc := acc / Sadr=> (ganzz 
dac ’ ace 5s= acc — 1" 
101@ PRINT 
12202 RETURN ER 
1926 REM Ausgabe auf Diskette 1199 
1248 IF .PCsi THEN 1190 12900 
1850 OPEN "DO", 1, "PROGRAMM/DAT" 1210 
1960 PRINT #1,:.PC3 1220 
1978 TO:.PC-1 1230 
10990 : 















1994 
1108 
1110 
1120 
111% 
1140 
1159 
1189 
1178 NEXT 
1182 CLOS 


Mit diesem:'Programm: wollen wir 
allen Computerfreaks eine neue 
Möglichkeit geben, wie sie uns 
ihre Artikel einsenden können. 
Nämlich nicht mehr“ auf Papier 
sondern auf Diskette. 

Sollten Sie-von dieser Möglich- 
keit Gebrauch machen, und uns ei- 
ne Textdiskette einsenden, spezi- 
fizieren Sie bitte ganz genau Ihr 
Aufzeichnungsformat. Z. B. 80 
Spuren, doppelte Schreibdichte, 
einseitig. 

Wenn Sie das nicht wollen, so 
können Sie das Programm immer- 
"hin noch als eine einfache Text- 
verarbeitung verwenden. 

Wie das Programm funktioniert, 
wollen wir jetzt im Einzelnen ein- 


FS(Ds","3 


Artikel auf Diskette 


mal kurz durchgehen. 
1. Text eingeben 


-In dieser Betriebsart können Sie 


Text eingeben. Je nach Computer 
mit Groß-, Kleinschrift und Um- 
lauten (Genie Ill). Der Text wird 
automatisch mit einer Zeilennum- 
mer versehen, die mit Abstand 3 
immer fortläuft. Der Abstand 3 
wurde gewählt, um Ihnen die Mög- 
lichkeit zu geben, in den fertigen 
Text noch Zeilen einzufügen. Sie 
haben Platz für maximal 3.000 
Zeilen mit 10.000 Buchstaben. 
Das müßte an und für sich für je- 
den Artikel ausreichen, beachten 
Sie aber bitte, daß die Werte in 
Zeile 1 unter Umständen an den 
Speicherausbau Ihres Rechners an- 


.'* Menue’. 


1249 INPUT #1, F$(ID) 
1256 NEXT I 
1269 INPUT #1, SC 
1279 FOR I=@ TO SC-1 
:128@ INPUT 41, 
"1298 NEXT I 
13909 FOR I=®& TO SC-1 
131@ INPUT #1, ST$(D) 
132@ NEXT I 
1358 CLOSE 
1348 RETURN 


STE) 





gepasst werden müssen. Die vorlie- 
gende Version läuft in dieser Art 
sofort auf Genie Ill, oder Ge- 
nie | + II mit 64K RAM. Um nach 
der Eingabe wieder an deri An- 
fang zu 


2. Speichern auf Diskette 

Der Rechner fragt Sie hier nach 
dem Namen, unter dem der Text 
auf Diskette abgelegt werden soll. 
Geben Sie diesen bitte mit allen 
zugehörigen Informationen an. 
Also z. B. "Artik1/dat:1' 

Speichern Sie den Text bitte im- 
mer auf Laufwerk 1. Sollten Sie 
jedoch nur über ein Laufwerk ver- 
fügen, und uns eine Diskette ein- 
senden, löschen Sie Ihr DOS von 


kommen tippen Sie 
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dieser Diskette. Sie würden sonst 
unberechtigt ein Programm kopie- 
ren und an uns weitergeben. 

3. Laden von der Diskette 
Hier wird automatisch eine Direc- 
tory von Laufwerk 1 angefordert. 
Ändern Sie je nach DOS und An- 
zahl der Laufwerke Zeile 29. Ge- 
ben Sie jetzt den Namen des Tex- 
tes ein, die Laufwerk. Nummer 
kann hier entfallen. Nach Been- 
digung des Ladevorgangs kann der 
Text wie von Hand eingegeben 
bearbeitet werden. 

4. Änderungen ausführen 
Wir haben das Programm nicht 


mit einem kompletten Editor 
versehen, um es möglichst kurz 
zu halten. Sie haben aber die Mög- 
lichkeit, eine Zeilennummer einzu- 
geben, um dann in diese Zeile 
einen neuen Text einzuschreiben. 
Sie können auch eine Zeilenzahl 
eingeben, die bisher noch nicht 
existiert hat. sie wird automatisch 
mit eingefügt. 
5. Text auflisten 

Der Text wird auf dem Bildschirm 
Ihres Computers aufgelistet. Und 
zwar mit der Zeilennummer. Wenn 
Sie Return gedrückt halten, stoppt 
das Listen solange. 


1 CLEAR10000: DIMTES$ (3000) 


2 ZI=3 
3 CLS 


6. Text ausdrucken 
Der Text wird auf einem ange- 
schlossenen Drucker ausgegeben. 

7. Textspeicher löschen 
Hier wird der eingegebene Text 
wieder gelöscht. Wenn Sie einen 
Text von der Diskette laden, so 
werden sich überschneidende Be- 
reiche sowieso gelöscht. 

Wie Sie sehen, ein kurzes Pro: 
gramm, schnell erklärt. Wenn Sie 
aber damit arbeiten, werden Sie 
sicher überrascht sein, was 55 
Zeilen Programm alles leisten. 


4 PRINT" HHHSHEHHSHRSHHSHHSHSIHRISHHHIHHIHHHIHSSHEIHHIHHISHHRIHHISHHIHHIHHIHINE 


17 7777 
5 PRINT" 
& PRINT 


Genie Data Artikel-Erfassung" 


7 PFRINTERRRREHRHRHBHHHHBHBHHHHSIHHIHRIHHIHHHIHHIHHHIHIHHSHHE 


a" 

8 PRINT" 1 
3 PRINT" 2 
PRINT" 3 
11 PRINT" 
PRINT" 
PRINT" 
PRINT" 


GOTOS 
ELS 


Z2-3:G0T03 
217=71+3:6G0T020 


DPEN"O",1,NA$ 
PRINT#1, z2 


ELS:CMD"i 1" 
DPEN"I",1,NA$ 
INPUT#1,2Z 


X=1/1: 


INPUTTE$S(ZZ) 


4 namen uuma nam m 
53 mua)0nanaeas an nmu. 
& “nm. naar 


7 ee nenne 


PRINT:SPRINT"Bitte die Code-Zahl tippen. 3 
A$=INKEY$: IFA$=""THEN16 & 
A=VAL {A$) :DNAGOTD197,23,27, a, 30,54 


ELS:LINEINPUT"Namen eingeben (z. B.: 
IFZZ=3THENPRINT"Kein Text im Speicher !":FORI=1T01000: NEXTI: BTOS 
PRINT:PRINT:PRINT"Bitte warten" 


PRINTZZ3 "> "33LINEINPUTTES (ZZ) 
IFTES(ZZI=UE menue"DRTE$S(ZZI="% MENLE"ORTES (ZZ) =" Menue" THENZZ= 


FORI=110Z2: PRINT#1,TE$ (I): NEXT: CLOSE: S0TO3 


w 


PRINT: LINEINPUT"Namen eingeben "NAS 


FRINT"Anzahl der Zeilen"3ZZ 
FORI=iTOZZ:LINEINPUT#A , TESCIIZPRINTTES CIJTNEXTI: CLOSE: GOTOS 
ELS: INPUT"Zeilenzahl der neuen Zeile";ZZ 
PRINT:ıPRINTTE$S (ZZ) =PRINT: PRINT: PRINT 
PRINT"Neuer Text für Zeile";1Z 


ie ne a me 


Text eingeben" 
Speichern auf Diskette" 
Laden von Diskette" 
Änderungen ausführen" 
Text auflisten” 
Text ausdrucken" 
Textspeicher--Löschen" 





"ANAS$ 











COMPUTER 


Erster 
HOFER 








Am: 1: Oktober. 1983, 9. 00. 18.00 Uhr, Katholisches Vereinshaus, Bachstraße 10, 8670 Hof 
Verkaufsleitung: Hannelore Staudt 


COMPUTER- LADEN 


"HANNELORE STAUDT 


BAYREUTHER STRASSE 28, TELEFON 092 81-84646 und 4 1591 


8670 HOF 


Der erste Hofer Computertag ist nicht nur eine Ver-, 


kaufs- sondern auch eine Informations-Veran- 
staltung. Wir bieten Ihnen an den verschiedensten 
Geräten Vorführungen zu den Themen: 


COMPUTER -GRAFIK 
'COMPUTER - MUSIK 
LEHR- und LERNPROGRAMME 
GESCHÄFTLICHE ANWENDUNGEN 


Zu jedem Themengebiet steht jemand bereit, der 
Ihre Fragen gern und ausführlich beantwortet. 
Hobby-Programmierer zeigen Ihnen, was mit dem 


- Computer machbar. ist, für professionelle Anwen- 
. dungen steht der Chefprogrammierer der Firma 


Trommeschläger, St. Augustin, zur Verfügung. 


Folgende Geräte stellen wir Ihnen vor: 


Aus dem Bereich Home-Computer, den Sharp 
PC 1500, den VZ 200 und den Laser 200. 

Als Personal-Computer das Colour Genie EG 2000, 
Genie I und Genie Il. 

Und aus .dem. Bereich Business-Computer die 
Geräte MZ 80 A und MZ 80 B, sowie Genie Ill. 





An allen Geräten laufen Vorführungen. Zu jedem 
aufgeführten Computer bieten wir auch: 
Fachliteratur, Zubehör und Programme. 


Auch Postversand! - Spez. Info anfordern! 
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IFTE$(ZZI =" dA" ORTES (ZZY="D"THENTE$S1ZZI="" 
Z17=X:G0T03 

CLS 

PRINTZZ:FRINT:PRINT 

FORI=1T0Z2 

IFTE$(1})=""THENGOTO47 
FRINT"L"3 I: ">": TES CD) 

IFPEEK (16444) =1 THEN46 

NEXTI 
PRINT"Fertig ! 
INPUTCE: GOTOS 
PRINT"Bitte warten" 

FORI=1T0ZZ 
IFTE$(TII<>""THENLPRINTTES$ (I) 
NEXTI1:GOTO3 

CLS:FRINT"Bitte warten" 
FORI=1T0Z7: TE$ (IIJ=""sNEXTI: Z7=3: 6G0T05 


Return tippen !" 





Fire Test 


Fire Test ist ein Invader-Spiel, in Benutzer ein Schwierigkeitsgrad DOS gesprungen. Das Spiel ist 


dem es darum geht, die sich auf 
dem Bildschirm befindlichen Geg- 
ner zu vernichten. Die Gegner’ be- 
wegen sich ständig hin und her. In 
gewissen Abständen fliegt die je- 
weils unterste Reihe der Gegner 
geschlossen nach unten. Erreicht 
einer der Gegner den unteren 
Bildschirmrand, haben Sie das 
Spiel verloren. Zum Bewegen Ihrer 
Basis werden die Pfeiltasten be- 
nutzt, zum Schießen die Taste F. 


zwischen O und 9 gewählt werden, 


‚von dem die Geschwindigkeit der 


Gegner abhängt. 

Haben Sie das Spiel verloren, 
können Sie durch Drücken der En- 
ter-Taste ein neues Spiel begin- 
nen, dies kann auch jederzeit wäh- 
rend des Spiels durch Drücken der 


Clear-Taste geschehen. Haben Sie 


alle Gegner vernichtet, beginnt 
nach einiger Zeit ein neues Spiel. 


Durch Drücken der Break-Taste. 


mit Ton, der über den Cassetten- 
Port ausgegeben wird, aus- 
gestattet. 

"Das Programm lädt in den Spei- 
cher in den Bereich von 7000H 
bis 771FH. Ansprungadresse ist 
7000H. Nach Eintippen des Hex- 
listings kann das Programm mit 
einem Monitor und diesen An- 
gaben auf Cassette gespeichert 
werden. 
Viel Spaß 

Rainer Schmies 








 WRDSPUERTERSETTPGESSRAERSEKNESSSSREÄSDEREEIEDAISER SA 


. Zu Beginn des Spiels kann vom wird zurück ins Basic bzw. ins. 


HEX-DUMP DES PROGRAMMS FIRE-TEST 
(C) BY RAINER SCHMIES 


aa: 21 DFB ZE FA TF ZI DO BO 22 ED 7F ZZ EB 7F 22 
BiB: EEE 7FEZEER FF SI BO EFF SE B5 32 FE 7FAFEZER 
7BzB: 7F ZI Ch SD Z2 ES 7F FEED SC 71 CD CH Bi CD BA 
‚a230: 73 21 BA SF CD IA 7O CD 8A 74 ZA 40 35 FE 28 CC 
’auR: 7E 70 ZA AB SS FE AB CC SD 78 SA AR EG FE Da CA 
wSsB: 66 DD SA ARD IS FE BE ES AT ABI SE FE AU CC BE 
TaEQE 7a CD DF 7a CD F7 72 BE BA CD EE 78 15.CC IB FE 
werd: OD Zu FR CS ED EC REF EC ZB 20 SF REF OSF EB AA FA 
rus@: 7F CE ISFDE EI FA T7FIS HI FF SE 18 BD SA FA TF 
7838: CE BE DE EI FA TFA EI BO IF ED SE FA 7F ED SA 
and: ES DI 21 74 70 DI 05 DU ED BO B6 SC BE Bi CD SE 
7RBZ: 71 CB ED AR ED 7F 75 Ei CO 86 DD BE 14 CD SB 7I 
acH: Zi EB 7F 7E 30 27 77 CD 84 7a an FA T7F De SE m 
TaDB: BB SF AF ED Ah 22 ED 7F 7EFEE 2 2D 7109 2A 
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7oE@: ED 7F 7C ES CE 7E FE BO 28 GC FE SC 28 OR FE SS 
7aFd: 25 AR FE 20 28 16 36 80 C9 36 85 09 36 2@ ii 40 
Fıams: DD ED S& 7E FE SF 28 25 FERF 28 21 36 BO 22 ED 
z7ıiaı 7F 2A ED 7F 7D 66 CO DE 7C CE CH DE 21 DO Bm 2: 
71290: ED 7F BE IC 06 36 CD SR 71 CD 54 74 C9 DD 2A ED 
7130: 7F 86 30 3E 21 CD SE 71 30 ı@ Fa SE 28 CD SE A 
rıagı 21 DO DO 22 ED 7F 21 EX 7F 7E SC 27 77 CD 84 74 
7150: 21 E2 7F TE FE SE CA ED 76 FD 21 OA 00 C5 CS DD 
TıEB: 77 BE DD 77 EF DD 77 CO DD 77 Ci DD 77 C= DD 77 
717@: FE DD 77 FF DD 77 88 DD 77 Mi DD 77 0x 47 GE 0: 
71E@: CD ER 7i BE Bü CD EE 7a Cı Ca Ca FS SE BL DE FF 
7130: C5 18 FE Ci AF DE FF OD SO FE Fi CSCD CS Mi 21 
7ıAm: AE 71 7E FE OD CA AS 7& CD 38 0Q 25 18 FA 20 2 
TBB: 20 20 20 20 20 20 20 20 m 20 2D 20 20 20 20 20 
Tild: 20 20 20 20 46 49 52 45 2D 54 45 5% 54 20 56 45 
7ıDZ: 52 58 49 4F 4E 20 Si 2ZE 34 DD OD 20 20 20 20 2 
TiEB: 20 20 0 20 20 20 20 20 20 2Q 20 ıu 20 22 20 2@ 
Tir@: 20 2D 20 43 4E SE 54 38 55 45 54 49 4F dE SE 2 
7200: SA 0D OD 2B zu 20 20 20 20 20 20 20 m SC ac a5 
7zı@: 46 54 20 4l 52 52 4F 37 3E 20 20 20 20 20 2 8 
Tz2@: 20 ZN 20 20 20 20 20 20 42 Al 38 45 20 4C 45 46 
7230: 54 OD 20 20 20 20 2M 20 20 20 20 20 IC 32 49 47 
7240: 48 54 20 41 52 52 AF 57 SE 22 20 20 20 20 20 =@ 
7250: In 20 20 20 20 2@ 20 4X 4 5% 45 20 52 49 47 48 
7260: 54 0D 20 20 20 20 20 20 20 2Q 20 20 SC 46 SE 29 
7270: 20 20 20 20 20 20 20 20 20 20 20 2m 2m 20 20 2m 
zug: IA 20 20 20 20 20 25 54 4F 20 46 49 52 45 20 42 
7290: ui 53 45 OD 20 20 20 20 20 20 20 20 20 20 50 48 
Fand: AU 45 Ai 52 IE 20 2 20 20 20 20 0 20 20 20 20 
T2BQ: 20 20 ZA 20 20 20 2Q 20 20 4E 45 57 20 47 Al AD 
7200: 45 OD 20 20 20 20 20 20 20 20 20 20 SC az 52 45 
7zDE: 41 AR SE 20 20 20 20 20 2m 20 20 20 20 20 20 
72EW: 3N 20 20 20 20 20 2D 4 4E 44 20 Li AC dc 20 47 
T2Fß: 41 AD 45 55 OD OD 20 20 45 4E 54 45 5% 29 55 5% 
7308: 45 45 44 20 46 Ai 48 54 AF SS 20 3Q 20 28 48 al 
FEiB: 52 44 29 20 54 4F 29 39 20 28 45 4155933 2 
732Q: ZA OD OD OD 20 20 20 20 20 20 m 20 20 20 20 0 
723@: 28 43 29 20 43 4F SQ 59 5: 43 47 48 54 20 21 39 
7340: 38 38 20 42 59 2 52 41 49 4E 45 52 20 ST 4S 48 
7350: 4D 43 45 5% OD 22 20 20 20 22 2Q 20 20 20 20 20 
TIER: 20 20 20 20 20 20 2W 20 20 2D 20 4S AF AC AF 47 
72370: 4E 45 20 20 47 45 52 4D 41 4E 59 20 OD 20 20 20 
7380: 20 20 20 20 20 20 20 2D 20 20 2Q 20 20 20 54 45 
72330: 40 ZE 20 3A 20 30 32 32 31 2F 37 I 34 34 32 56 
TEAB: 20 47 45 52 4D 4i 4E 59 O8 CD OB 75 CD 43 08 FE 
72EQ: BD 20 F3 CS 21 79 78 11 40 SC Di 25 Om ED BR 21 
7200: 73 70 i1 47 SC @l 05 OD ED ED 21 48 SC 11 4E 3C 
728: Bi EC O0 ED EQ 21 4Q SC il SD IC Ol in 0 ED BO 
73EB: 21 48 SC 11 CO EC Bl 4B 0W ED BO 21 48 SC 11 48 
73F@: 3D 01 CO OB ED EBD CH SA FE FF 3D 32 FE 7F CO SA 
TauB: EC 7F 3D 32 EC 7F CC 75 75 FD 2n ED 7F FD ES EI 
7418: 7C ES 28 03 08 FD 7E On 08 FD 36 00 20 SA F9 7F 
Tu2B: 32 F2 7F ZA FE 7F FE BS FA AuC 74 SD 32 F& TR 
7a2@: CD SF ii Ci IF ML Bi DE ED BE O6 OF 21 40 SC ii 
744B: 40 OD AF 36 20 ED 5A 1@ FA CH ED 74 3D CC 81 74 
7450: 32 F& 7F 11 48 SC 21 4l SC Bi ED O8 ED ED B6 OF 
7ußß: 21 7F IC 11 4D QM AF 36 20 ED 5A 10 FA FD ES Ei 
7470: 76 ES CS FD 7E DM FE 20 C2 2D 71 08 FD 77 08 De 
7ueB: C3 ZE 88 09 Zi CC 74 11 00 SC Bi SC AU ED BA: 
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74hIR: 
Taams 
TARG: 
FZHRGE 
Fang: 
TAEZ: 
Far: 
Tone: 
si: 
TS: 
1530: 
754: 
FEsn: 
TS6ER: 
7578: 
580: 
Ton: 
TEA: 
FIRE: 
Face 
TSDz: 
FSEB: 
TESFR: 
FEDR: 
Teize 
FBER: 
TED: 
TEL 
TESaR 
TEbRR 
TE7AR 
FEIERN 
Yan: 
TED: 
TERM 
TECH: 
FEINAS 
TEEZ: 
FEB: 
Para 


rs 
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TF FESTES 77’ AF ED EF SB I BR SC 
ED EF 27 CE 22 2% 3 ED EF EI EX 
27 2a 77 RF EDEF 27 C6 ZR 30 DE 32 
27 Ch 30 32 30 30 DE 50 [3 gu AB Ar 
SE Pa SO Za DA Zi ZOO u za zu 2 
zu 2a 20 Zu 20 20 28 20 a zu ZA ZE 

u zu Zu Zu zu 20 2m Ei 2 zu ZD za 2 
ya 53 FA aA 28 20 20 20 2 [cD 13 76 CD 
47 56 DE DE BE 75 75 CE un 75 75 32 
DE EFA7TRF CE 07 iR FC SE TFRF ZZ ER 
aE 22 ER 7F 2E EC 7F 1 11 88 ZE 21 
ED Ba 03 20 za E82 52 45 a EC 45 4E 
Sa ZE SD Sk AFID SE 5a Al 54 20 5a 48 
47 al AD 45 zZ zu EB 20 5 zu za m En 
=D 2 20 za Eh ER 7F 32 za ER 7F B7 
7a zn ES 7F EEE ER 7F SE ER 7F &A Eh 
ZE EG 7F ZA ES 7F 11 50 JE ER ES 7 
7F 7C BES Z8 ZD FD ZA ED FD 7E DR 05 
Din zo zn E& 7F 75 DE SB 7E ZA ES 7F 
za ED SA Ei ZA ER 7F il ED 5A Di Bi 

ED BE 11 Ei MM ED SA 28 Es 11 AU Du 
Es Di ii: 36 28 Bi \ za ED 7F TC 
GÜD FD 7E BE FE ZU FD 77 az GE 
DE Ci DZ 7DCE Au zu EB 7F SE 
ER 7F 21 65 76 ED 2 Bi ED RU 
ZFSERF m Ad 75 21 Bü 53 
zu ?ı Ca SF 11 © 6 ZU ED BA 
SF Co ah 78 03 Zi SE Bi An Zu 
CD Di 7 CO ZE iR In Da 7a 47 
45 za dkF Sb 45 5: zu zB CD C9 
85 7& il BU SE 01 iE 14 CD 6EE 
c9 76 iD 208 F?7’ÜO AR A7 GE 4 
un Ar Sa AG 4F AE zi 21 Zu 21 
za a 5a 45 28.4954 
U AU 20 52 43 47 Zi: 2lbszkizek 
zu ra zu za 28 u :ESEEBLSCDN BR: 
CD DE BR CD EFF 25 20:00 08 0% 
nz um HB De an Bu 20 Du: 2% 
um vd Bi Don. Bu: 2 , 28 ou Du 0% 
au an 99.4. SE 42 EB 30 4B:6GE BU 
43 52.5074 50 22 37 dB 4S Au 


TRS-B0/V G. Hard- und Software 
 ROM- Listing 


@ Vollst. .disass. und deutsch kommentiert; 

® RAM-I/O-Adressen; 

@ Vergleich der verschiedenen TRS-80/VIDEO- 
GENIE-Versionen; 

@ 150 genau erläuterte Unterprogramme; 

® u erins mehr (s. auch Kritiken in mc 182 und 
cp 13/82 


129 Seiten gebündelte (und gebundene) Information 
f. 69,55 DM inkl. MwSt. 


L. Röckrath 


Noppiusstraße 19, 5100 Aachen, Telefon (02 41)349 62. 
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VLELGEIEENSCHTSTETELEEERHRTRENE 





EEE DAEERESTEIRLLEILETETENSEETSSHEGIDEIDEN 





m. 0... 0... 


Das Programm dient zur Verwal- 
tung von Investment-Anteilen. Es 
können bis zu 20 Investmentkon- 
ten geführt und bis zu 500 Bele- 
ge bearbeitet werden. Bestände 
und Ausschüttungen sind in Jah- 
resübersichten auflistbar. 

Das Programm ist für einen TRS 
80 Modell | (Genie I+1l} mit min- 
destens 32 KB, einem Disketten- 
laufwerk mit NEWDOS/80, Vers. 
2.0 (bei Version 1.0 muß Zeile 1 
gelöscht werden.), sowie einem 
Centronics 730 Drucker ge- 
schrieben. 

Die Druckcodes in den Zeilen 
14-17 müssen bei anderen Druk- 
kern ggf. geändert werden. 

Nach dem Start mit "RUN” 
wird das Codewort abgefragt, bei 
der bisherigen Einstellung lautet es 
PASSWORT. Danach werden die 
vorhandenen Konten und Belege 
von der Diskette eingelesen. An- 
schließend läuft das Hauptmenu 
auf. Sind noch keine Daten auf 
der Diskette, wird als erstes’ die 
"Eingabe neuer. Investmentkonten’ 
aufgerufen. 

Alle Dateieingaben können mit 
""99'’ verlassen werden. 

“ Um die eingegebenen Daten auf 

Diskette zu schreiben, muß das 
Programm mit "5 - Beenden und 
Daten auf Disk‘" vom Hauptmenu 
aus verlassen werden. 

Sollen ausser der Eingabe von 
Belegen auch Übersichten auf 
Bildschirm oder Drucker ausgege- 
ben werden, muß vorher die Ein- 
gabe der Tageskurse erfolgen. 

Folgende Eingaben sind über 
das Hauptmenu aufzurufen: 

1. EINGABE 

Kauf/Verkauf/Ausschüttung 


Der Monat wird für den Kauf/ 
Verkauf zweistellig, für die Aus- 
schüttung mit 0 eingegeben. Das 
Jahr ist ebenfalls zweistellig einzu- 
ben. Als Konto wird die Nummer 
des jeweiligen Investment-Kontos 
eingegeben. Aus dem Kauf- bzw. 
Verkaufs-Betrag und dem Ausga- 
be bzw. Rücknahme-Preis wird die 
Stückzahl errechnet. Zur Kon- 
trolle wird der Gesamtbestand an- 
gezeigt. Wird die nun folgende Ab- 
frage "Richtig (y/n)” mit "Y" be- 
antwortet, werden die Daten in 
den Speicher übernommen; .an- 
dernfalls wird die Eingabezeile ge- 
löscht und der Cursor geht wieder 


an den Anfang der Zeile. Mit:'99' 


bei der Monatseingabe wird das 
Menu erreicht. 
2. EINGABE 
neuer Investmentkonten 

Zur »Eingabe neuer Konten wird 
die nächste: freie Nummer ange- 
zeigt. Nun kann das neu aufzu- 
nehmende Konto mit bis zu 12 
Zeichen eingegeben werden. "Y’ 
bei der Abfrage übernimmt die 
Konten in den Speicher und in die 
Übersicht. ‘N’ erlaubt die erneute 
Eingabe für diese Nummer. 

3. AUFLISTUNG 

auf Bildschirm 
Nach der Eingabe des gewünsch- 
ten Kontos sind folgende Listen 
möglich: 
1. Liste für best. Jahr/Monat. 
Jahr (xx) = Ausgabe aller Bewe- 
gungen in diesem Jahr 
Monat (xx) = Ausgabe aller xx. 
Monate. 
Ausschüttung (0) = 
rigen Ausschüttungen. 
2. Gesamtes Konto listen. 
Für das gewünschte Konto werden 


Alle bishe- 


i ECMHD"BLINK"’Laesst Cursor auf blinken 
2 CLEAR1000:CL5: AS=CHRS (151) +CHR$ (163) +STRINGS (59, 179) +CHRS$ (147) +CHRS$ (17 


I? +CHR$ (13): FORI=1T014 


alle bisherigen Bewegungen auf- 
gelistet. Bei aufgelösten Konten 
werden die Kontenbewegungen 
ohne Kursbewertung angezeigt. 
3. Bestandsübersicht. 
Gibt eine Übersicht über den mo- 
mentanen Bestand der einzelnen 
Konten und deren Kurswert. 
Weitere Übersichten über das 
gleiche Konto werden mit CLEAR, 
das Menue mit ENTER erreicht. „ 
4. AUSGABE 
auf Drucker 
1. Liste für best. Jahr/Monat, 
2. Gesamtes Konto listen. 
3, Jahresstand drucken. 
Ausgabe der Jahressummen für 
Kauf, Verkauf und Ausschüttung 
in DM und Stücken. Beim Ifd. Jahr 
jeweils bis zur letzten Eingabe. 
Aufrechnung der Jahressummen. 
Angabe von Kurs und Kurswert. 
4. Bestandübersicht 
Weitere Ausgaben für das glei- 
che Konto werden mit CLEAR, 
das Menu mit ENTER erreicht. 
5. BEENDEN 
und Daten auf Diskette 
Das Programm darf nur über die- 
sen Punkt verlassen werden, da 
sonst die eingegebenen Daten ver- 
loren sind. Es ist vorgesehen eine 
Sicherungsdiskette zu führen, die 
nach Aufforderung in das Lauf- 
werk eingelegt werden muß. 
6. EINGABE 
Tageskurse 
Zur Eingabe der Tageskurse 
(Rücknahmekurs) laufen die ein- 
zelnen Konten auf. Aufgelöste 
Konten werden angezeigt und 
übersprungen. 


Michael Sturm 


5 B$=BS+CHR$ (149) +CHR$ (170) HCHR$ (2513 +CHRS$ (149) +CHR$ (170) +CHRS$ (13) =NEXTI 
4 PRINTA$+BS+CHRS (181) +CHR$ (178) +5STRINGS$ (59, 179) +CHR$ (177) +CHRS$ (188) 5 :B$ 
=""SDEFINTA-Z: DEFSTRX-Z: DEFDBLB,S 


5 DEFFNXT OO =MID$(X, 4,234". 


= 11.11.11” 


"+MIDS (X, 1,2) +". "+M1D$ (X, 7,2) XT="Version vom 


& P=PEEK (VARPTR(XTI +1) +PEEK (VARPTR(XT) +23 8256: XA=FNXT CTIME$) : FORI=1TOLEN 
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XA): POKEI+IZ+P ASCIEMIDSECXA, IYISNEXTI 
7 DEFFNP=PEEK (16416) +2563PEEK (1541 7) -15360: PRINTSISL,"INV ES T - 80" 


3 

8 PRINTS24A&, "Investment Verwaltungs Frogramm Version 1.5"3:PRINTS400,"( 
CE) Copyright 1982, MICHAEL STURM";: 

7 PRINTSS3I, "Vertrieb: ";:PFRINTSAOL, "Michael Sturm": :PRINTS681,"Fritz-Erl 
er-Strasse Ü"::PRINTS727,"D 3501 Schauenburg"; 

10 PRINTS8S0, "Benutzer Fassword: „.a0.... "STRINGS (8, 243 3: PP=2s:PL=8:PV=1 
: GOSUB1T0: IFX1< #" PASSWORD" THENLOELSEPV=0:F1=500 

11 P2=70:DIMB (Pi), BIi{FI)I,M(PI), KPLI4S(PI) „KE(PZ) „ST P2) ,BSCP2) 2DEFFNR(I 
„J)= Eee 5?/10AJ 

12 DOPEN"R" „1, "DATEN/INVY","FF",28:DPEN"R®",2,"KONTO/INV", "FF" ,12:P3=LOFi1l) 
:P4=LOF (2): DEM SINT LCD, 

13 DEFFNJ (I)=1-INT (1/1007 3100: DEFFNZ (I, X) =STRING$ { (I-LEN (X)3 /2, 323 +X+STR 
ING$((I-LEN(CXY? 72,32): XL=CHRS$ (31) 

14 KXB=CHRS (27)+CHRS$ (19) +CHRS$ (273 +CHR$ (14) "40 Zeichen 

15 XN=CHRS$ (27) +CHRS$ (19) +CHRS (ZI +CHRS$ (157 °’B0O Zeichen 

15 XD=CHR$ (27) +CHRS$ (20) +CHRS (ZI +CHR$ (14) "564 Zeichen 

17 XS=CHRS$ (27) +CHRE$ (20) +CHRS$ (27) +CHR$ (159 ’132 Zeichen 

18 DIMXM(i2):FORI=0T012: READXM (TI: NEXTI 

19 DATAAussch. „Januar ‚Februar , Maerz ,April,Mai,Juni „Juli „ August, September 
‚OÖktober „Novenber ‚Dezember 

20 DEFFNX (X$) =LEFT$ (X$, 12) +STRING$ (12-LEN (X) „ 32) ea DEFFNS#H (I!) =VAL (STRS (1 
NT(1'821000+.5) 71000) ) 


21 Yi='ı ee te ee 
et" 

22 yYz=ı Me — _— 
-. O-.- Kurs BIP 272 7 .E > mE 7 27.076 7 006 > 7 ,7°7 DE 7 mumse ı >02 0 76 7 > me © 2 >: 7 S0E 
a ee ee Kurswert HH 4 ee #4 
Ba Im .” 

23 Y3-ız 0" XP CL)="Liste fuer Monat/Jahr":XP( 


2)="Gesamt listen":XL(1)="Druck fuer Monat/Jahr" 

24 XL (Z)="Gbesamt drucken": XL (WM) ="Jahresstand drucken": XL_{4)="Kontenueh. 
drucken = IFP3+PF4=0THENA4i 

25 IFPS3=00RPA4=OTHENCLS: PRINTS448, CHR$ (25) "Fehler bei Datenfile(s)":STOPE 
LSEFORI=1ITOPI:GETI,. , 55001 

2& BSIKEDII=FNSHFIBSIKCTDI I+SCIY IS NEXTI:FORI=1TOP4s Een NEXTI 

27 Z="Hauptmenu" :6GDSUB113 

28 PRINT" 

i - Eingabe Kauf /Verkauf /Ausschuettung 

- Eingabe neue Investmentkonten 

- Auflisten auf Bildschirm 

Auflisten auf Drucker 

- Beenden und Daten auf Disk 

- Eingabe. Tageskurs" 

27 PL=1:PP=i:605UB1I30:6G=VAL (X1):ONGGOTOS1,41,44,568,891, 91 

30 6017077 

531 Z="Eingabe Kauf /Verkauf":GOSUB1 135: IFFS=PLER=1: GDTOLZZELSEGOSUB 109: P=5 
7& 

32 FRINT"Eingabe bei Monat: 97 — Beenden / © — Ausschuettung 

Monat Jahr konto Betrag Preis Stuecke Ges.St." 

33 FORI=PI+1TOP1 

34 PP=1:FPL=2:605UB131:M{I}=VAL (X1) 3100: IFM(I) =SFFOOTHENPZ=I-1: BOTDZ7ELSEP 
=P+5:605UB131:M1I)=M{IY +VAL XL) :P=P+9 

35 GOSUBIT1: IFVAL(X1) >PATHENSSELSEK (TD) =VAL (X1) :P=P+7:PL=9:GOSUB131:B(T)= 
VAL{X1):P=P+13:56DSUBII1:B1 III=VAL (XI): P=P+8 

%ah IFFNM(IMCIYI=OTHENBLII=FNS#IBSIKUIYI ABIT) ) 


BENITN 1 SCR’NI-LUMEBIMITN ID 4 TN 
37 IFBL {TI =OTHENS IT) =SELSES TIIFFNS# {BI} 7/Bi IP? 


38 PRINTSP,USING"###. ### LI) „BS(K(IVI+SCD) 5: EI= =1:605UB12 
5: IFX="N"THENP=P-43:PRINTSF,XL;3 : GOTOS4ELSEP=P+21 


FTa2ukh 
| 
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3? P3=1:PRINT337, USING" ERRE/RE" I PS P4ııBSCK (IV DI =BS(KETI)+S CT) s IFP>BYSTHE 
NP=5746: FRINTSP, XL; 

40 NEXTI:P3=P1:60T027 

41 Z="Eingabe neue Konten" :605UB113:605UB109: IFPA=P2ER=1:GOTOLZZELSEI=P4 
+1 : 

42 FRINTSB96,XLUSING"9979 — Beenden ### : "s12:PP=2:FL=12:60DSUB130:1 
FX1="790" THENZ7ELSEEI=1: GOSUB1 25: IFX="N"THEN42 

42 FIELDS, 12ASX2:LSETX2=X1:K$ (I)=X2:P4=1:6G0T041 

44 ME=1:GD5SUB121:Z="Auflistung auf Bildschirm" :605UB113 

45 FRINT" 

i - Liste fuer bestimmtes Jahr / bestimmten Monat 

- Ein Konto gesamt listen 

- Bestandsuebersicht 

4 — Ruecksprung zum Hauptmenu” 

46 PF=1:PlL=1:605UB1I0: 6=VALCX1) 2 Z=XP (69 :6GOSUB113:DNGGOTO4B, 48,54,27 

47 GOTO44 

48 GDSURF7:ONGGOTO49,52 

47 CD=1:FRINTSBPS,XL"Fuer Monat/Jahr (Ausschuettung = O0) (xx) ";:ıPP=1:PLl 
=? GOSURI1 FO: M=VAL (X1) 3 IFM=S99THENA44 i 
SO IFM<OTHEN4FELSEGOSUB1 10: FORI= EEE ERS RENT IRNDEES SENDERS 
1ELSEIFKLI}=GGGOSURBFE 

sl NEXTI=:ME=1:60T0118 

52 CD=2:605UB110:FORI=1TOPTF: IFKCII=GSGGOSUBFB 

53 NEXTI:ME=1:60TD118 


dA hl 


54 CD=3: Z="Bestandsuebersicht":60SUB113:PRINT"Konto Anteile K- 
wert Konto Anteile K-wert"s:z FORI=1TOF4:PRINTUSINGYISK 
S(1),BS(I) ,BSCIIASTEII EZ IFI/2<>INT (I/ZI THENPRINT" "2 


55 NEXTI:60T0118 

56 ME=2:60SUR121:Z="Auflistung auf Drucker":GOSUB113 

57 PRINT" RR 

i - Liste fuer bestimmtes Jahr 7 bestimmter Monat 

2 - Ein konto gesamt jisten 

3 - Jahresstand listen 

4 -— Bestandsuebersicht listen 

5 - Ruecksprung zum Hauptmenu" 

SB PP=1:PL=1:605SUB130:6=VAL (X1}: Zeil (63 : GOSUB 113: ONGGOTOSYF, 57,65, 78,27 
57 GDOSURY7: ONGSGOTDAO, 53 

&0 FRINTSBI6,XL"Fuer Monat/Jahr (Ausschuettung = O) (xx) "z3:PLl=2:FPP=1:60 
SUB1IS0:M=VAL (X1) : IFMXOTHENSGELSEIFM=YITHENSG& 

Gi BOSUB111:FORI=ITOP3: EEBISSENUERLCEID BEIDES SEI CH ET IETHENEZEFSEIERT EI FRE 
DSUR102 

62 NEXTI:ME=2:50T0118 

53 GOSUB111:FORI=ITOPF: IFK(T) =66605UB102 

64 NEXTI:ME=2:60T0118 

65 J=0: iB=1:605UBR71: FDORI=1TDP4A: IA=0: KA$=KS (TI): BB=0: SB=0: BL=0: SL=0: BW=0:5 
W=0: FORI1=1ITOPS 

45 IFK(ILI<SSITHENSBELSEIFIA=SOTHENIA=I 1: JA=SFNJ (MCIIY) ss BA=0: SA=0: BK=0: SK=O 
ı BV=0: 5V=0: 605UB75:GOT058 

67 IFFNJ (M{Ti) I)=JATHENIA=I1: GOSUB74: GOTOSBELSE TA=0: GDOSUR74: KAß="": 607066 
68 NEXT11:6DSUR74:LPRINTUSINGY2:ST(I),BL,BW,SL,SW,5SB,BEB,ST {ID & (SL-SW+SEB} 
„EL-BW, SL-SW+SB: LPRINT” "=:LPRINT" "ıdJ=d+2 

67 IFI< >P46DSUB72 

70 NEXTI:ME=2:6DOTD118 


71 LFRINTXBUSING" Jahr esüber sicht" +XN+" Stand: "+FNXT (TIMES) +" 
Blatt #4##", 18: IB=IB+1 
72 LPRINT" "SLPRINTXN" Zukauf Verkauf Zukauf 
Verkauf Ausschuettung" 
732 LPRINTXN"Konto Jahr DM DM Stuecke Stuecke 
st. DM": J=4:RETURN 


74 LPRINTXNUSINGY1:KA$, 1900+JA, BK, BV, SK, SV, 5A, BAz BB=BB+BA: SB=5B+SA: BL=BL 





| 
3 
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+BK: 5L=5L+5K : Bi=BuU+-BV: SW=SW+SV: J=T+tl 

75 1FJ/50=1NT (3/50) THENE I =2: GOSUB125: IFX="N" THENSSELSE7I 

7& IFFNM(MIIIII=SOTHENBA=BA+B (IL): SA=SA+S (Il): RETURNELSEIFB 11} <OTHENBV= BR 

N-B (11) :5V=SV-S Il): RETURNELSEBK=BK+B IN) :SK=SK+5 (11) 

77 RETURN 

78 Z=e"Bestandsuebersicht ":6G0OSUB113:LPRINT" ":LPRINTXB"Bestandsuebersicht 
Stand: "FNXT (TIMES) :SLPRINT" " 


77 CD=4:LPRINT"Konto Anteile K-wert Konto Anteile 
K-wert"3: FORI=1TOPF4: LPRINTUSINGYS:K$ I), BS(I},BSCIIXST(MN 3: 1FI7/2X 
>INT (1/2) THENLFRINT" "ELSELPRINT" “ 


80 NEXTI:LPRINTCHRS$ (132) : 60OT055 

81 WF=0: 7Z="Beenden und Daten auf Disk":6505UB113: IFPF< >LOF (1) THENWF=1: FOR 

I=LOFti1)+1TOPS:PUTi,1,85001:NEXTI 

82 IFPA<>LOF {ZI THENWF=WF+2:FORI=LOF (23 +1TDP4:PUT2,1,65002:NEXTI 

83 CLOSE: IFWF=OTHENFOELSEZ="Daten auf Sicherungsdisk":6DSUR113 

84 PRINTS255, "Bitte Sicherungsdisk in Drive 1 einlegen und ENTER druecke 

n- ". 

85 IFINKEY$< >CHR$ (11) THENSSELSEOFEN"R", 1. "Daten/iInv:1", "FF" ,28:0PEN"R" „2 

«"Konto/Inv:1","FF",12 

85 IFWF=10ORWF=3THENFORI=LOF (1)+1TOF3:PUT1,1I,55001:NEXTI 

87 IFWF=20ORWF=3THENFORI=LOF (2)+1T0OP3: PUT2,1,.65001:NEXTI 

88 CLOSE: FRINTSI84,"Bitte Sicherungsdisk aus Drive 1 entfernen und ENTER 
druecken."s; 

89 IFINKEY$<>CHRS$ (13) THENS? 

90 END 

31 Z="Tageskurseingabe":6G0OSUB113:P7=192: FORI=1TOPASTEP2: PRINTSP7,K$ UI)" 

: "z=:JIFBSCII=SÖTHENPRINT"AX Verkauft KR": :260T0753 

32 FP=1:PL=6:605SUB130:ST (TI=VALCAND 

33 IFIrI>FA4THENPSELSEPRINTSP7+32,K$(I+1)" 2 "32 IFBSCIHFL I =SOTHENPRINT"ER V 

erkauft 3%&"::60T095ELSEPP=1:PL=4:60SUB1I0 

94 STLIr1)=VAL(XN) 

95 F7=P7+&4:NEXTI 

96 6010727 

977 J=0:G0SURB109F: PRINT" 

Fuer Konto "3:PP=1:PL=2:G05UB130: 66G=VAL (X1?: IFG6=99THENIZOELSEIFOG< LORGG 

>P4THENFTELSERETURN 

98 5=8+5 (13: IFFNM(MCTI I<HOTHENB=B+BUTDIELSEIF M=-0B=B+B (1) 

397 J=J+1 

100 FRINTUSING"% HH HH 

"I XMIFNMIMCDI DI ,FNJ (M{CDD I ,B{ID ,„B,.BL(D SID „S,SXST (GG); 

i01 D=0:60T0106 

102 5=5+5 (1})z IFFNMIMCLD IS FOTHENB=B+B (I) 

103 J=J+1 

104 LPRINTXNUSING"% a 

Be "I XMIFENMCMCLIIDI.FNJCHMCIYI ,BCILY)„B1 (1) „STII ,SITIY 5 

T1665) ,B,5,5#5T (66) 

105 D=1 

1056 IF (DANDJ/SO=1INT (J/S0 OR (D=0ANDJ/12=INT (37/12) THENEI=2: GOSUBI125ELSER 

ETURN 

107 1FX="N" THENOND+1GODTO44,, S6öELSEIFDGOSUBI 11ELSEFRINTS192,XL3 

108 RETURN 

109 FRINTS128, XL: :FORI=1T0P4: PRINTUSING "HH % Ars IsKks${ilIYssNEXTI 

:PRINTS448, ; z RETURN 

110 GOSUB115:PRINTS128,XL"Monat Jahr Einz. Gesamt Preis Stuecke 
Gesamt Kurswert ":RETURN 

111 GOSUBIi16:LPRINT" ":LPRINTXB: ZELPRINTXN”"Monat Jahr Einz. Preis 
Stuecke Wert bes.DM bes.St. Kurswert" 

112 LPRINT" "RETURN 

113 IFZ=""THENRETURN 

114 PRINTSO,USING"% INVESTSO x % % #448 /## Daten i 
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m Speicher"+STRINGS (64, 140) +X1.3 7, P3,F4: : RETURN 

115 FORWW=1ITD7SO: NEXTWR: RETURN 

115 Z=5TR$ (ST (66) ) : IFINSTR (Z,". ")=OTHENZ=Z+".O0O"ELSEIFLEN (ZI -INSTRIZ,"." 
I<ZTHENZ=Z+"D" 

117 Z=K$(66)+" Kurs: "+2:60T0113 

118 S=0:B=0:J=0: PRINTSIAO, XL" Menu <ENTER> =, Fortsetzu 
ng .<ECLEAR>"; 

119 X=INKEY$:1IFX< >CHRS$ (1.5) ANDX< >XLTHENI11FELSEIFX=XLONCDGOTO49, 48, 44,56 
120 ONMEGOTOA44,56 

121 CD=0:5=0:R=0: J=0: RETURN 

122 ONERGOSUB123, 124: 60T027 

123 FRINTSI60, "Speicher voll - Keine Eingabe mehr moeglich";:60T0115 

124 GOTD11S 

125 ONEIGOTD126, 127 

12& PRINTSF&0,XLCHR$ (212) "Richtig ty/nm) "::6DTD0128 

127 PRINTSI&0, XLCHR$ (212) "Weiter (y/n) "3:50T0128 

128 X=INKEY$: IFX=""THENIZ2BELSEIFX="y" THENX="Y"ELSEIFX="n"THENX="N"ELSEI2 
8 

127 PRINTSFAO, AL: RETURN 

130 P=FNP 

131 X1="":PRINTSP, STRING$ (PL, 44) STRING$ (FL, 24) CHR& (14) 3; 

132 X=INKEYES IFY=""THENIZDELSERBSASC (X) 3 IFX1="" THENLISELSEIFFOSBTHENXI SL 
EFT$(X1,LEN(Xt) -1) :PRINTXCHRS (46) CHR$ (24) 3:60T01532 

133 IFPB=13THENPRINTSTRING$ (FL-LEN (X1) „ SZ) CHR$S (15) RETURN 

134 IFPP=1THENIFPE&< >45ANDPB< >45AND {PB<{A4BORPFB>S7) THENIS2 

135 IFPF=ZTHENIFFPS<SZORPB>12ZBTHENISZ 

1364 IFLEN(X1)=PLTHENISZELSEX1=X1+X: IFPV,PRINT"%"sELSEPRINTX3 

137 GOTD132 . 

65001 MCII, K{I), BtTYy BICD, SID; 65001 

65002 (12)KE(TI)s "645002 





BEI UNS IST DER WURM DRIN!!!! 
Wo ? In unserem Colour Genie, wo denn sonst ? 


Und da unser Wurm einige Junge hat, können wir Ihnen welche abgeben ! Aber Vorsicht, die Würmchen lümmeln sich ganz 


schön auf dem Bildschirm rum! Und sie haben ständig Hunger! Übrigens, man erkennt sie sofort am gierigen Blick. Und der 
Computer macht Musik dazu, und das sehr gut! 


Also: Bestellen Sie sich sofort einen WURMI, damit es bei Ihnen auf dem Bildschirm auch mal rund geht! 
WURMI nur DM 29,--!!! (Eigentlich viel zu billig.) 
Ralf M. Hübben, Verlag für Computertechnik, D-5429 Marienfels 
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Programm- Cassetten 
Verwaltung 


Dieses Programm soll helfen, in 
den. Programm-Cassetten-Wirrwarr 
etwas Ordnung zu bringen. 

Das Programm besteht aus sechs 
Teilen. 

Teil 1 erzeugt eine aktuelle 
Liste aller Programme mit zuge- 
höriger Cassetten-Nummer. 

Teil 2 listet alle Programme auf, 
die auf einer Cassette zu finden 
sind. 

Teil 3 druckt eine aktuelle Liste 
aller Programme mit zugehöriger 
Cassetten-Nummer auf einem an- 
geschlossenen Drucker aus. 

Mit Teil 4 kann eine Liste er- 
stellt, ergänzt oder geändert wer- 
den. 

Mit Teil 5 kann man ein Pro- 
gramm suchen lassen. Es erscheint 
dann in einer Kopfzeile, auf wel- 
cher Cassette das gesuchte Pro- 
gramm zü finden ist. 

Nach dem Laden und Starten 


10 ELS:CLEAR 500 


des Programms meldet es sich 
mit einem Auswahlmenue. Wird 
‘4’ ausgewählt, fragt das Pro- 
gramm unter welchem Buchstaben 
ein Programm-Name einge- 
speichert werden soll. Nach der 
Beantwortung dieser Frage springt 
das Programm in die entsprechen- 
de Data-Zeile im Edit-Modus. 
Beim jungfräulichen Programm be- 
steht diese Data-Zeile aus einer 
Rem-Zeile. 

Dieses Rem (’) ist zu löschen. 
Mit 'X‘ springt der Cursor ans En- 
de dieser Zeile. Dort wird der Pro- 
gramm-Name und die Cassetten- 
Nummer ohne Blank eigegeben. 

Beispiel: 
400 Edit 400:Data Android-Nim 
01,Armored-Patroi13 


“ Zwischen zwei Programm-Namen 


muß ein Komma stehen. Sind alle 
Programm-Namen in die Data-Zei- 
le eingeschrieben, muß das Pro- 


20 PRINT STRING$ (54,42) 


30 PRINTS194,"CASSETTEN-VERWAL 


AM M" 

40 FRINTSS47, 
50 FRINTS455 
50 PRINT:FRINT 


"NON ":PRINT 
„"WALTER MUELLER 


70 PRINT STRINSS (84,42) 
80 FOR I= 1 TOI000 :NEXT I 


70 .CLS 

100 PRINT" 
110 PRINT: PRINT:PRINT 
120 
130 
140 
150 
150 
170 
180 
190 
200 
210 
220 
230 
240 


RESTORE : A=0: 1=0 


G0T0 190 

CLS 

READ A$ 
I=]+1:A=A+1 
IF A$="ENDE", 


PRINT "PROGRAMM-LISTE GESAMMT 7? 
PRINT"PROSRAMM-LISTE NACH CASSETTEN-NR 7? 
PRINT"FROGRAMM-LISTE DRUCKEN ? 
PRINT"PROGRAMM-LISTE ERGAENZEN 7 
PFRINT"PROGRAMM SUCHEN 7? 
PRINT"PROGRAMM ABSPEICHERN 7 


AUSWAHLMENVUE “ 


GOTD 250 ELSE 270 . 


mn 2 an une na Ra una ann 


gramm neu gestartet werden. Dies 
kann über 'RUN’ oder 'GOTO 100’ 
erfolgen. Wenn Sie mit dem Ein- 
schreiben aller Programm-Namen 
fertig sind, muß das Programm ab- 
gespeichert werden! Dies kann 
über Auswahl 6 erfolgen. 

Sollte nun eine Data-Zeile voll 
sein (223 Zeichen), so muß eine 
neue Data-Zeile angelegt werden. 
Ist z.B. die Zeile 400’A’ voll, so 
muß nun die alte Zeile folgender- 
maßen abgeändert werden: 

400 Edit 401:Data Android usw. 
Die neue Zeile muß nun so ausse- 
hen: 
401 Data Amadeus22 

. Dieses Programm ist ein Bei- 
spiel, wie man auf ’eine’ Art et- 
was Übersicht über seine Pro- 


gramm-Cassetten bekommen 
kann. 
Viel Erfolg wünscht: 
Walter Müller 


TUNGS-PRODSGR 


(1) "PRINT 
{2) "zPRINT 
(3) "2 PRINT 
{4) "PRINT 
(5) "SPRINT 
(9) * 


ON VAL (INKEY$) GOTO 210,860, 720,340, 760,670 








DA ABONNEMENT BESTELLUNG 








Hiermit bestelle ich 
GENIE DATA. 


Mir ist bekannt, daß ich das Abonnement zu jedem Quartal, 
jeweils & Wochen vor Quartalsende, kündigen kann. 


_ Der Bezugspreis beträgt innerhalb der BRD nur DM 30,-- 
pro Abonnement. (Sechs Ausgaben) 





Abonnements) der Zeitschrift 


Die Bezugsdauer verlängert sich nach Ablauf eines Jahres um 
weitere 12 Monate, solange bis das Abonnement gekündigt 
wird. 


Mit obigen Bedingungen erkläre ich mich einverstanden : 


Unterschrift: Datum: 


Bei Jugendlichen unter 18 Jahren, Unterschrift eines 
Erziehungsberechtigten! 











DAT KonTaKT-KARTE 


Ihr Inserat in der GENIE DATA Nr. hat meine Beachtung 
gefunden. 


O Bitte schicken Sie mir weiteres Informations-Material. 


Hiermit bestelle ich zur schnellstmöglichen Lieferung: 





Unterschrift: Datum : 





Bei ausdehnen unter 18 Jahren, Unterschrift eines 


| 








GENIEDATA Een ANSEIE Neue 


Bitte veröffentlichen Sie nachstehenden Text in der 





nächsten Ausgabe von GENIE DATA unter der Rubrik 


‚, Kleinanzeigen. 

















Unterschrift Datum 


Mit meiner Unterschrift versichere ich, keine urheber- 
rechtlichen Bestimmungen zu verletzen. 





GENIEDATN unserat-BesteLLung 





Reservieren Sie uns bitte angekreuzten Platz für ein Inserat 
zum Erscheinen in der nächsten GENIE DATA. Unsere Satz- 
vorlage, bzw. Film, geht Ihnen umgehend zu. 


O 1/1 Seite DM 600, -- 
O 1/2 Seite DM 360, -- 
O 1/3 Seite DM 275,-- 
O 1/4 Seite DM 216,-- 
O 1/8 Seite DM 130, -- 


alle Preise + gesetzl. MWSt. 


© Senden Sie uns bitte Ihre momentan gültige 
Anzeigen-Preisliste 





Unterschrift 
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250 PRINTIPRINT" ' ENDE DER LISTE" 

280 IPRINT:PRINT"LEERTASTE !":60T0 350 

270 L=LEN{A$) 

280 Li=L-2 

290 B$=LEFT$(A$,L1) 

300 B$=B$+STRING$ (40-L1,".") 

310 C$=RIGHT$ (A$, 2) 

320 PRINTI,B$:C$ 

330 IF A=14 THEN PRINT" LEERTASTE !"ELSE 220 
340 A=0: Z$=INKEY$: IFZ$=" "THEN 210 ELSE 340 
350 A$=INKEY$:IFA$=" "THEN 90 ELSE 350 


>60 


ECLS: INPUT"UNTER WELCHEM BUCHSTABEN SOLL DAS FROGRAMM ABGESPEICHE 


RT WERDEN "327% 


570 
380 


N=ASC (Z$) ıN=N-64 
ON N GOTO 400,410,420, 430,440, 450, 460,470, 480, 490, 500, 510,520, 53 


0,540, 550,560,570,580, 570, 600,610, 520,630, 640, 450 


390 
400 
410 


420 


450 
4409 
+50 
460 


.470 


480 
4930 
500 
510 
520 
SS0 
540 
550 


S&0 


570 
580 
590 
&00 


’DATA LISTE FUER PROGRAMME 
EDIT 400: ’DATA 
EDIT 410: ’DATA 
EDIT 420: ’DATA 
EDIT 430: ’DATA 
EDIT 440: ’DATA 
EDIT 450: ’DATA 
EDIT 480: "DATA 
EDIT 470: ’DATA 
EDIT 480: ’DATA 
EDIT 470: ’DATA 
EDIT 500: ’DATA 
EDIT 510: ’DATA 
EDIT 520: ”DATA 
EDIT 530: ’DATA 
EDIT 540: "DATA 
ERIT 550: ’DATA 
EDIT 580: ’DATA 
EDIT 370: DATA 
EDIT 580: "DATA 
EDIT 590: "DATA 
EDIT 500: ’DATA 
EDIT 810: ’DATA 
EDIT 820: ’DATA 
EDIT 530: ’DATA 
EDIT 840: ’DATA 
EDIT 850: "DATA 
DATA ENDE 

CLS 
INPUT"WELCHER RECORDER INTERN <I> EXTERN <E>",R$ 
INPUT"RELORDER AUF AUFN. SCHALTEN UND <NEW-LINE> DRUECKEN*":Z 
IFR$="1* THENESAVE#-1,"A"ELSE CSAVEH-2, "A" 

PRINT"PROGRAMM GESPEICHERT ! ":=3FÜR R=1T01000:NEXT:GOTOFO 

IF INP(255)<>&3 THEN 7530 ELSE 750 Ö 

ECLS:PRINT"DRUCKER EINSCHALTEN !!!ı" 

IF INP(253)<>&63 THEN 740 

CLS: INPUT"GIB HEUTIGES DATUM EIN (TT-MM-JJJJI "3 T$ 


N<{KEZ<ZEHJUNIBVOZZT RAUM ZaTnNMOonDmD 


780 CLS:PRINTS448, "BIN BEIM DRUCKEN" 

770 LPRINT:LPRINT=:LPRINTsS LPRINTSTRING$ (57,45) 3 LPRINTSLPRINTSLPRINT:=L 
PRINT 

780 LPRINTSLPRINT" FRDGRAMM-LISTE vom "T$3 


790 
800 
810 


LPRINT=LPRINTSLPRINT 
READ A$:5T=ST+i1: IF ST=50 THEN GDOSUB 1050 . 
IF A$="ENDE"THEN 90 
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820 L=LEN{A&}:L1=L-2: B$S=LEFTS$ (AS, L1) : BSSBSEHSTRINGSE (30-1 ,".9) 
830 1=1+i:C$=RIGHT$ (A$,2) 

840 LPRINT I1,B$;C$ 

350 GOTD 800 

B&40 RESTORE:CLS: INPUT "WELCHE CASSETTE (01-99 ":2Z$:CL8S 

870 READ As: IFA$="ENDE"THEN 730 

880 L=LEN(A$) ıL1=L-2:B$=LEFT$(A,L1) rB$=BS+STRING$ (40-_1,".") 

890 C$=RIGHT$ (A$,2) 

700 IF Z$=C$ THEN 710 ELSE 870 

9710 I1=1Ir1:PRINTI,B$;C$ 

920 GDTD 870 

3730 PRINT: PRINT:FRINT"LISTE BEENDET " 

740 PRINT:PRINT"LEERTASTE DRUECKEN !" 

3750 AS=INKEYS$: IFAF$=" "THEN 70 ELSE 950 

9760 CLS: INPUT "WELCHES FROGRAMM 7? (DIE ERSTEN DREI BUCHSTABEN) ":P$:C 


770 READ A$: IFA$="ENDE"THEN 1040 

3780 L=LEN(A$) :L1=L.-2: B$>=LEFT$ (A$,L1)} 

790 C$=RIGHT$ (A, 2) 

1000 IF LEFT$(P$, SI) =LEFT$(BS,3) THEN 1010 ELSE 9770 

1010 PRINT"DAS PROGRAMM 38% "BS" Kak IST AUF CASSETTE NR. "C$ 

1020 PRINT:PRINT:GOTO 120 

1030 LPRINT:LPRINT:LPRINT:LPRINTSTRING$ (57,45) :LPRINTSLFRINTSLPRINT: 
LPRINT":5T=0: RETURN 

1040 PRINT:PRINT"DAS FROGRAMM KA% "Ps" 33% IST NICHT EXISTENT" 
1050 GOTO 110 








Leichtverständliche Rechnerprogramme 
für HANDEL und GEWERBE 


Angebots- und Rechnungswesen nach Textbau- 
steinen mit Preis, Stückzahl, Rabattsatz etc und 
anschließender Speicherung. DM 485, — 
Adressdatei mit verschiedenen Selektier- und 

Sortierroutinen sowie einer Textverarbeitung 

für Werbeschreiben etc. . . DM5%,— 
Lieferanten- und Artikeldatei mit Zuordnung und 

Sortierung nach 6-stelliger Art.-Nr. für Export . 

als 2-sprachige Version. DM 290, — 

Wärmebedarfsberechnung nach alter und neuer 

DIN, incl. K-Wert Berechnung mehrschichtiger 
Bauteile. DM 8%, — 
Komplette Anlagen zu vernünftigen Preisen auf Anfrage 

MC-SERVICE F+D Brücher Kirberg 18 6276 Bieistein 















SCHLUSSBERICHT ZUR ERSTEN BERLINER COMPUTERBÖRSE 


Am 23.7. fand in Berlin in der alten TU-Mensa die erste Berliner Computerbörse statt. Trotz strahlendem 
Badewetter mit Temperaturen um 30 Grad fanden sich mehr Besucher ein, als vom Veranstalter und von 
den Anbietern erwartet: Es waren sowohl überörtliche als auch lokale Unternehmen und Computercliubs 
vertreten. Im privaten Bereich wurden viele Geschäfte in den Veranstaltungsräumen als auch außerhalb ge- 
tätigt. Drei Neuvorstellungen waren auf dieser Börse zu sehen. Die entwicklungsfreudige Berliner Firma CSC 
stellte ihr neues Motherboard vor. Von der Ingenieurgesellschaft ANCON wurde eine CCU (Computer Con- 
troller Unit) gezeigt. Ein Baustein, mit dem man verschiedene PC’s zusammenkoppeln kann, die nicht mit- 
einander kompatibel sind. Und der DRAGON 32, ein aus England kommender Home-Computer wurde in 
Berlin. vorgestellt. Natürlich gab es auch Sonderangebote, wie zum Beispiet Drucker zum Preis von ca. 500,-- 
DM und Disketten im 1Der Pack für 50,- DM. Obwohl die sommerliche Hitze Anbietern und Besuchern zu 
schaffen machte, war es doch eine gelungene Veranstaltung. 
Die zweite Berliner Computerbörse ist für den November in größeren Räumen geplant, um ein noch vielfäl- 
tigeres Angebot der interessierten Öffentlichkeit bieten zu können. 
Jörg Dietmar Ganz. 
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CBBS 


Am 15. August 1983 hat RMI Nachrichtentechnik GmbH in Zusammenarbeit mit Software Service Berlin 
den ersten deutschen CBBS (Computer Bulletein Board Service) in Betrieb genommen. 

In den USA gibt es von diesen über Telefon anwählbaren Kleincomputern sehr viele private Installationen, 
welche dort für Nachrichten- und Programm-Austausch genutzt werden. 
RMI Nachrichtentechnik GmbH hat einen Rechner für diese Aufgabe abgestellt, der über DATEX-P von vie- 
len deutschen Orten zu Ortstarif angewählt werden kann. Nach 19.00 Uhr ist dieser Dienst frei für jeder- 
mann. Es können hier Nachrichten an alle Benutzer oder an Bestimmte abgelegt werden, welche die Em- 
pfänger dann ebenfalls per Telefon abrufen können. Das System ist gegenwärtig in der Entwicklung und Vor- 
schläge der Benutzer werden gerne angenommen. Zur Anwahl wird ein Telefon, ein Modem und ein Ter- 
minal (Bildschirmtextfernseher, Terminal oder Druckerterminal) benötigt. DATEX-P ist ein Paketvermitt- 
lungsdienst, welcher weltweit (z.B. über Tymnet/Telenet etc.) angewählt werden kann. 

Der CBBS wird während der Geschäftszeit zur Annahme von Telexen und Bestellungen verwendet. Die 
"Hobby’-Anwendung sieht auch eine Verbindung mit KW- und UKW-Amateurfunkstellen vor {s. auch RIC- 
Berlin). Eine Softwaretausch-Datenbank ist in Vorbereitung. 
Ein Merkblatt über den Zugang zu dem System kann gegen DM -,60 Rückporto bei der RMI Nachrichten- 


technik GmbH angefordert werden. 





ERSTER HOFER COMPUTERTAG 


Am 1. Oktober 1983 findet im Katholischen Vereinshaus in der Bachstraße in 8670 Hof der erste Hofer 
Computertag statt. Unter anderem laufen Vorführungen zu den Themen Computer-Grafik, Computer- 
Musik, Lehr- und Lernprogramme und geschäftliche Anwendungen. Neben vielen ‘Computer-Hobbyisten’ 
wird auch der Chefprogrammierer der Fa. Trommeschläger anwesend sein. Veranstalter ist der Computer- 


Laden H. Staudt, Hof. 





2 80 SUPER EMUF 


Zur kostengünstigen Lösung von Decoder-, Steuerungs-, Interface- und anderen Problemen, entwickelte die 

Firma Kanis den Z 80 Super EMUF (Einplatinen-Microcomputer für Universelle Festwertprogramm Anwen- 

dung). Zur Standardausrüstung des Z 80 EMUF gehören: 
Clock 4 MHz, CPU Z 80 A, RAM 2K, EPROM 2K. 

Ohne Änderung der Platine können auch die entsprechenden 8K Bausteine verwendet werden. Den Kontakt 

mit der Außenwelt stellen zahlreiche Interfacemöglichkeiten her: 

16 freiprogrammierbare Ein/Ausgabeleitungen, eine serielle Schnittstelle (V24 oder 20mA) mit Handshake, 


4 Zeitgeber/Zählerkanäle. 


. Für Uhrenanwendungen steht ein quarzstabiler 1 sec. und 1 min. Zeittakt zur Verfügung. 


Der Preis beträgt für die Platine DM 49,-- 


‚ für den Bausatz DM 220,-- und für das Fertiggerät DM 293,-- incl. 


MWSt. ab Werk. Im Preis ist eine ausführliche Beschreibung (Schaltplan, Bestückungsplan, Adresse, Program- 
mierhinweise und Testprogramm) enthalten. Fordern Sie bitte weitere Informationen an: 
Ing. Büro W. Kanis GmbH, Lindenberg 113, 8134 Pöcking, Tel. 08157-3576 und 1680 





Platschvogel 


Dies ist ein einfaches Spiel, das vor 
allem Anfängern Spaß machen 
wird. Durch die Verwendung der 
frei programmierbaren Zeichen, 
kann der Vogel leicht in ein UFO 
oder dergleichen umgewandelt 
werden. 


Auch Geschwindigkeit, Farbe 
und Ton können nach Lust und 
Laune geändert werden. 

Nach dem Abwurf von 40 Eiern 
tritt eine kleine Pause im Pro- 
gramm auf, ab hier wird die Quer- 
summe der unteren Zeile ge- 


prüft und festgestellt ob alles ge- 
troffen ist. Der Einfachheit halber 
wurde dieser kleine Nachteil nicht 
beseitigt. Basic ist hier zu langsam. 
Compiliert läuft es gleichmäßig, 
muß aber angepaßt werden. 
Gerhard Puzicha 
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i CLS 

2 COLOURI 

S& FRINT"COFYRIGHT BY * GERHARD PUZICHA * 

4 PRINT"WALHOVENER STR.25 4047 DORMAGEN" = FORN=OTO500: NEXT:SCLS 
5 FRINT"DU BIST HERR VEBER DEN GROSSEN 


PLATSCHVOGEL UND KANNST MIT DER 


LEERTASTE DEN EIERABWURF STEUERN. 
& PRINT=PRINT 


10 
15 


PRINT"WAEHLE ANFAENGER — 60 EIER 


» 


[i 


4 N 


INFUT"GSIB DEINE WAHL EIN "5A 

IF Asi OR A>3 THEN 50 
’GESCHWINDIGKEIT” 
"UND ANZAHL DER’ 


IF Asl B=50:L=40 
IF A=2 G=30:L=55 
IF A=3 G=5 :L=50 


[en ni me rer ware ger mm RE Ar Hrn rt an m IF Tr pa Mb Wr Pen ana ame WW ANAS Im ab A Apr ua A ap a HR ET Ana a OA a Marne Sa da An WET A haha MT pp A A a ri am 


GOSUB 1000 


PRINTSO» "ZUM WURF 
GOSUE 2000 


GEWORFEN SIND " 


° Z=ZAEHLER* 
"H=HILFSZAEHLER’ 
°’S=POSITION VOBEL’ 
’R=POSITION EI’ 


IFH=Z FRINTS890, "U 
FÜR N=1 TOD &0:NEXT 
FLAY{1>1>1>0) 
FRINTSBFO, " 


IN I IELSE2OO 


IF H=L+1 GOTO 500 
FRINTSS» CHR$ (128) +CHR$ (129) +CHR$ (130) 


"DIES 15T DER VOGEL” 
FOR N=0 TO G:NEXT 


IF 9=357 5=79 
E$S=INKEY$S IF ESSH" "ABFRAGE DER LEERTASTE’ 


FRINTSR:» CHR$ (230) 
iF H>37 AND R>=840 THEN 700 
IF R>=840 Z=Z+1:FRINTSSS- Z3 5 E$=" A" SPRINTSR,."M"ER=5 


FOR N=0 TO 300: NEXT 
FRINTSS20- "DU HAST "5 EIER VERBRAUCHT" 


FRINT"UND ES NICHT GESCHAFFT," 
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528 PRINT"ALLES GLEICHMAESSIS ZU BEKLECKERN. 

530 PRINTS5840. "MOECHTEST DU EIN NEUES SPIEL ? „< J/N > 

540 INPUT A$ 

550 IF A$="J" THEN RUN ELSE END 

700 Z=2+12PRINTS3S, Z1E$="A"t PRINTER, "I" 

nn , 
710 U=18248 "QUERSUMME PRUEFEN- DE ALLES GETROFFEN IST (LETZTE ZEILE)’ 
720 M=0 

730 FOR C=0T0 39 

740 M=M+PEEK (U) 

750 U=U+1 
ee : 
760 IF M=9760 THEN PRINT8400="BRAVO ! ! ! DU HAST ES BESCHAFFT: 


ES IST ALLES SCHOEN BEKLECKERT": GOTD5S50 

770 NEXT 

780 R=S 

790 GOTD 320 

N EEE ERREGER RETTET EEE re Er Eee ; 
1000 D=3075 "VOGEL ZEICHNEN’ 

1010 B= 

1020 D=D-i 

1050 B=B+1 

1040 READ C 

1050 FÜKE -D»E 

10660 IF Bs>24 THEN 1020 

1070 DATAS6: 78: 240, 190, 131» 0505 0» 0, 0, 255, 223: 223, 126: 56» 36; 55: 66 
1075 DATA 136: 160:0,0,0,0 

1080 RETURN 
BEE Dee EUER En ee amd En SoSe Erneut nern Een ne nie E 
2000 Y=759 FIBUREN. ZEICHNEN” 

2010 Y=Y+i 

2020 READ X 

2030 PRINTSY»CHRE (X) $ 

2040 IF Y<>B37 THEN 2010 

2050 DATA32. 52, 32: 32» 230, 32, 32, 32: 205, 216: 224, 32, 32, 32, 32, 32, 32 
2052 DATA 32: 32: 32: 32; 32: 32, 2095 202 202: 202, 202; 224, 32: 32» 205 
2054 DATA 224» 32: 32: 230: 32: 32: 2035 32, 202: 32» 201 32; 241, 32, 201 
2056 DATA 201: 202, 202, 202, 32: 201» 201 > 32» 201 201> 32; 32, 201» 201 
2058 DATA 32:32» 202, 32; 202; 202; 202: 202: 32» 201, 202; 202: 201> 32 \ 
2060 DATA 202; 32. 32, 202» 201 

2054 COLDURS 

2065 PRINTS840, STRING$ (40, 195) 

2070 RETURN 


N Wenn Sie ein gutes Programm für das 
u COLOUR GENIE 
(Assembler oder complliert) 
u V geschrieben haben und daran Interessiert. 
& = or sind es zu verkaufen, dann schicken Sie es uns zu. 


\ r Wir zahlen Spitzenprelse für die 


Copyrights an Spielen 
RALF M. HÜBBEN, VERLAG FÜR. COMPUTERTECHNIK, 5429 MARIENFELS 








und Hilfsprogrammen. 
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Umlaute für Genie I und Il 


Hat man erst alle Zweifel über- 
wunden und sich für ein Compu- 
tersystem entschieden, was beim 
ersten Mal bekanntlich recht müh- 
sam und zeitraubend sein kann, 
scheint einem sein System das be- 
ste zu sein, was für das bezahlte 
Geld auf dem Markt erhältlich 
war. 

In der ersten Euphorie fallen 
daher manche Unzulänglichkeiten, 
oder weniger negativ ausgedrückt 
manche Besonderheiten des erwor- 
benen Computers, gar nicht so 
sehr auf. 

Erst, wenn man sich in sein 
System voll eingearbeitet, viele 
Programme selbst erstellt und Er- 
fahrungen gesammelt hat, fallen 
diese Besonderheiten auf. 

Eine solche stellt bei vielen 
Computern die Tastaturanordnung 
dar, die in der Regel nach dem 
Zeichensatz des jeweiligen Her- 
kunftsiandes gestaltet ist. 

Nun kann man sich fragen, ob 
es denn wirklich so störend ist, 
daß die Y- und Z-Taste vertauscht 
und die deutschen Sonderzeichen 
gar nicht erst vorhanden sind. 

Die Beantwortung dieser Frage 
ist natürlich abhängig von der je- 
weiligen Anwendung des 
vorhandenen Computersystems. 

Spätestens aber dann, wenn 
man sich der Textverarbeitung 
widmet, stellt sich dieses Problem 
sehr schnell. 

Auch der Tastatur des Genie | 
sieht man an, daß sie nicht unbe- 
dingt auf deutsche Textverarbei- 
tung zugeschnitten ist. Wie schon 
oben beschrieben, muß sich der 
Schreibmaschinengewöhnte beim 
Genie | mit vertauschten und 
nicht vorhandenen Tasten herum- 
schlagen. 

Nun hat der Genie | auch in 
kommerziellen Bereichen. Einzug 
gehalten, sodaß sein Hersteller sich 
wohl oder übel etwas einfallen las- 
sen mußte, um wenigstens A, Ö, 
Ü und ß über die Tastatur erreich- 
bar zu machen. 

Zunächst wurde dem Genie ein 


HARDWARE 


deutscher Zeichensatz statt des 
amerikanischen eingesetzt, der 
dann außerdem noch die Klein- 
buchstaben enthielt. 

Hier noch ein Tip, wie Besitzer 
älterer Genie’s ihren Zeichensatz 
begutachten können. Sie brauchen 
nur folgende kleine Basic-Zeile im 
Direktmodus einzugeben: 

FOR X=32 TO 191: 
PRINT CHRS(X)" "n 
NEXT X 

Nach Betätigung der NEW LI- 
NE-Taste erscheint der Zeichen- 
satz samt der Grafikzeichen. Bei 
Vorlage des neuen Zeichensatzes 
müssen nach dem Buchstaben Z 
folgende Zeichen folgen: 

Ä Ö Ü Bindestrich Cursor 

Das einsetzen eines neues Zei- 
generators war jedoch nur die Vor- 
aussetzung dafür, daß die Sonder- 
zeichen auch auf dem Bildschirm 
darstellbar waren. Da die Tastatur 
aber in ihrem alten Zustand belas- 
sen wurde, waren einige Software- 
Kunststücke nötig, um diese Zei- 
chen auch über die Tastatur an- 
sprechen zu können. Bei den neu- 
eren Genie ! Versionen mit dem 
Level IV ROM funktioniert dies 
so: 

A erreicht man mit Hochpfeil A 


i u Hochpfeil O 
Ü ” Hochpfeil U 
ß 5 Hochpfeil Z 


Will man auch Kleinbuchstaben 
haben, muß man zuvor noch die 
Shift-Taste drücken, sodaß für das 
kleine ä folgende Tasten gedrückt 
werden müssen: 

Shift Hochpfeil A 

Dies ist ein Verfahren, an das 
man sich gewiß gewöhnen kann, 
das aber wenig elegant ist. 

Das folgende Verfahren besteht 
aus einem kleinen Hardware-Ein- 
griff und richtet sich an alt jene, 
die sich mit ihrem Genie | auch 
hardwaremäßig etwas auskennen, 

Um das Prinzip des Eingriffs 
zu verstehen, ist zur Veranschau- 
lichung in Bild 1 der Schaltplan 
der Tastaturplatine dargestellt. 

Wie der Schaltplan zeigt, wird 


bei der Betätigung einer Taste 
lediglich eine Schiene Ax mit ei- 
ner Schiene Bx verbunden, z. B. 
bei Taste A Schiene A1 mit Schie- 
ne B2. Bei der Tastaturabfrage 
fragt der Computer nacheinander 
die Schiene Al bis A8 ab und 
prüft jeweils, welche der B-Schie- 
nen angesprochen wurde. 

Wie weiter aus dem Schalt- 
bild zu erkennen ist, sind die 
Verbindungen der Schiene A4 mit 
den Schienen B4 bis B8 nicht vor- 
handen. Gerade aber hier gehör- 
ten die Tasten mit den Sonder- 
zeichen hin. 

Mein Vorschlag besteht nun da- 
rin, auf der Tastaturplatine vier 
weitere Tasten anzubringen, die je- 
weils die Schiene A4 mit der zuge- 
hörigen B-Schiene verbindet. 

Die erforderlichen Genie-Tasten 
mit zugehörigen Aufsätzen habe 
ich mir für ein paar Mark bei der 
Firma Trommeschläger in St. Au- 
gustin bei Bonn besorgt. 

Nun zum Umbau: 
Hat man die Gehäuseabdeckung 
entfernt (bitte merken, wo die 


unterschiedlichen Schrauben hin- _ 


gehören), hat man die Tastatur- 
platine direkt vor sich. Um an ihr 
ungestört arbeiten zu können, löst 
man’ an 
schrauben: und zieht das Verbin- 
dungskabel zum Computer in der 
linken oberen Ecke aus der 


schwarzen Halterung ab. Vorsicht, 


das: die Drähte nicht verbiegen! 
Nun kann die Tastatur vorsichtig 
aus dem Gehäuse genommen 
werden. 
“Legt man die neuen Tasten so 
wie in Bild 2, so hat man den Vor- 
teil, die Tasten direkt in schon 
vorbereitete Steckplätze einsetzen 
zu können. Die Tasten Ö, U undß 
sind dann schon voll funktions- 
tüchtig. Beim Einsetzen der Tasten 
muß man beachten, daß sie so ein- 
gesetzt werden, daß die Anschluß- 
pins unten aus der Platine heraus- 
schauen und gut verlötet werden 
können. 

Wie schon erwähnt, erzeugen 


ihr alle  Befestigungs- ' 


| 
| 
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die Tasten Ö, Ü und ß schon di- 
rekt nach dem Einlöten die Son- 
derzeichen. Der Buchstabe Ä hin- 
gegen erzeugt jetzt den gleichen 
Code wie die Hochpfeil-Taste. Bei 
älteren Geräten ist dies nicht wei- 
ter schlimm, da der Hochpfeil ja 
auch Ä erzeugt. 

Bei Geräten mit Level 4 jedoch 
wird die Hochpfeil-Taste als Kon- 
troli-Taste verwendet und erzeugt 
für sich allein keinen Code mehr. 

Es müssen zunächst die Zulei- 
tungen zur Ä-Taste unterbrochen 
werden {mit spitzem Gegenstand 
die Leiterbahnen unterbrechen). 
Jetzt liegt die Ä-Taste isoliert von 
der. übrigen Tastatur. Anschlies- 
send müssen zwei Leiterbahnen 
ausfindig gemacht werden, näm- 
lich eine, die von Schiene A4 
und eine die von Schiene B4 


4 
A 
7 
E 
_ 


DD 
In 


mn 


Clear! Brk 


kommt. Im  Tastaturschaltbild 
(Bild 1) kann man erkennen, daß 
dies genau die beiden Schienen 
sind, die zur Erzeugung des Buch- 
stabens Ä mittels Tasters verbun- 
den werden müssen. 

Mit diesen Schienen muß nun 
der Ä-Taster verbunden werden, 
was mit zwei kurzen Stücken Lei- 
terdraht schnell ertedigt ist (Bild 


Nun kann die Tastaturplatine 
wieder ins Gehäuse eingesetzt wer- 
den. Bevor die Befestigungs- 
schrauben wieder angezogen wer- 
den, verbindet man die Platine 
wieder mit dem Verbindungska- 
bel mit dem Computer, indem die 
Drähte des Kabels wieder vorsich- 
tig in die schwarze Halterung ein- 
gesteckt werden (verbogene 
Drähte erst wieder geradebiegen). 
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Nachdem die Gehäuseabdeckung 
vorsichtig und provisorisch aufge- 
legt worden ist, kann man zu- 
nächst einmal testen, ob der Ein- 
bau erfolgreich war. Wenn nicht, 
müssen alle neuen Verbindungen 
noch einmal überprüft und gege- 
benenfalls geändert werden. Ist 
alles zufriedenstellend, kann die 
Tastatur wieder befestigt und die 
Abdeckung angeschraubt werden. 
Jetzt stehen für die zusätzlichen 
deutschen Sonderzeichen Ä, Ö, Ü 
und ß gesonderte Tasten zur Ver- 
fügung. Es mag vielleicht ent- 
täuschen, daß die neuen Zeichen 
nicht genau da liegen, wo sie nach 
einer deutschen Schreibmaschine 
liegen sollten. Dies liegt zum Teil 
jedoch im Aufbau der Tastatur- 
platine begründet. Auf der Platine 
sind noch an vielen anderen Stel- 
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len freie Steckplätze für weitere 
Tasten. frei, sodaß der eine oder 
andere Leser, der sich mit dem Ge- 
danken an einen Umbau trägt, 
selbst wählen kann, wo er die neu- 
en Tasten plaziert haben will. 
Diese Umbauanleitung soll eine 


Bild 2 


Bild 3 


NN 





Anregung für diejenigen sein, die 
auch vor einer Hardwarelösung 
(besonders wenn diese recht ein- 
fach durchzuführen ist) nicht zu- 
rückschrecken und ein wenig mit 
dem Lötkolben umgehen können. 

Zum Schluß sei noch erwähnt, 


Verbindung zur Schiene A4 
Verbindung zur Schiene B4 


Leiterbahnen zur Ä-Taste unterbrechen 


daß je nach dem wo die neuen 
Tasten liegen, das Gehäuse (Ge- 
häuseabdeckung) etwas ausgesägt 
(evtl. mit einer Laubsäge) werden 
muß. 


Catharina Stodden 








Colour 


Aus folgendem Assembler-Listing 
sind fünf Z 80 Programme zu ent- 
nehmen, mit denen man sich das 
Programmieren in Basic oder das 
Testen von Maschinenprogrammen 
etwas komfortabler gestalten 
kann. 

Nach dem Laden aller 22EH 
Bytes und dem einmaligen Auf- 
ruf durch "CALL 50DA’” und 
"CALL 5220" sind die Befehle 
KILL, LINE, 'MERGE, CVD(xX) 
sowie DEF und CMD verfügbar, 





Utilitie 
deren Wirkungsweise nachfolgend 
beschrieben wird. - 

KilLnnnnn : 
Diese Routine (507C - 50D9) 
killt das Basic-Label nnnnn und 


hängt die nachfolgenden State- 
ments der vorangehenden Zeile 


.an. Im Listing bleiben fünf " " 


(ASCII 5CH, über Taste Fi zu er- 
halten), die nachträglich mit Hilfe 
des Editors gelöscht werden kön- 
nen. Die Eingabe nnnnn ist zwin- 
gend, d. h. führende Nullen in der 


enie 


Zeilennummer dürfen nicht weg- 
gelassen werden. Die Umrechnung 
der ASCII kodierten Zeilennum- 
mer in die 2-Byte Hex-Zahl er- 


-folgt in der Routine 5OF2 - 5124 


und ist sicher nicht elegant, je- 
doch die mir einzig mögliche Lö- 
sung, da der Hersteller des Colour 
Genies sich entschlossen hat, sein 
Produkt ohne vernünftige Doku- 
mentation des Betriebssystems zu 
vertreiben. 
LINEnnnnn 








Dieser Befehl (5000 - 507B) stellt 
die Umkehrung vori KILL dar, d. 
h. er fügt die Zeilennummer 
nnnnn dort im Basic-Programm 
ein, wo vorher die fünf ” ” 
schoben worden sind. Sowohl 
KILL als auch LINE melden sich 
bei Auftreten einer Fehlerbedin- 
gung, die durch Fehlen der fünf 


fenden Labels gegeben sein .:kö 





nur mit "READY". 

MERGE. 
Auf eine Anregung aus der GENI 
DATA Nr. 2, Seite 43, hin. @ 
diese Routine (5125: - 514 
strickt. Soll zu einem Basl 
gramm ein weiteres hinzu. 
werden, wird MERGE 
und die Meldung 
(H = high) erscheint. 
Laden des Programme: 
ein zweites. MER 
Startadresse. wiede 





dardwert gesetzt 
5000 LD.HL, 
LD DE, 
PUSH 
POP. IX 
XOR: ls 
SBC HL, DE ED 
LD-A, (1X) DD 
5010 cP 924 FE 
JR: Z,+13d 28 
INC IX DD 
. DEC. HL 2B 
LD A-0.: 3E 
CPH BC 
JR NZ,-15d 20 
GPL»: BD 
. JR NZ.-18d 20 
| JR +86d 18 
g 5021 LDB,4 06 
ı INC IX DD 
| DEC HL 2B 
. LD A, (IX) DD 
| CP 92d FE 
| IR NZ,-25d 20 
DINZ -12d 10 
| 502F CALL 50F2 cD 
| POP HL El 
DEC IX DD 
' LD (IX+1),H DD 
LD (IX),L DD 
PUSH IX DD 
INC IX DD 
INC IX DD 





einge-' 


Back-Slashes oder gar des .betref- 


nen, mit "?-READY”, andernfalls 


SOFTWARE 


(L = low) gemeidet. 

KILL und LINE können nur 
mit MERGE, MERGE jedoch 
kann alleine betrieben werden. 

CVD(X) 

Fälls Sie wie ich das Denken in 
hexadezimalen Zahlen verab- 
scheuen und trotzdem eine Dezi- 
malzahl X in Hex umwandeln wol- 
„Das Ergebnis erscheint direkt 
‚dem Bildschirm und ist durch 
Eingabe von z.B. "A=CVD(X)” 
rzielen (515D - 5184). 
(90 - 521F wird ein Pro- 
\ jegeben, mit dem eine 
2:80 Register z. B. zu 
öglich ist. Dotiert 
estende Maschinen- 
ALL 5190 oder 
dann jedoch die 
4013. und 4014 
ıden sein müssen, 
ine das der Inhalt der 
ıdert wird; in der 26. 

e die. Register :AF, 























5041 


5052 


505F 


00 


50 5071 


5079 
507C 


5080 
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BC, DE, HL, IX und IY von links 
nach rechts angezeigt. Bis auf F, 
das zwecks besserer Lesbarkeit der 
Flags binär dargestellt ist, erfolgt 
die Anzeige hexadezimal. Das Pro- 
gramm wartet auf die Eingabe ei- 
ner beliebigen Taste und springt 
erst dann in das zu testende Pro- 
gramm zurück. 

Überflüssig zu erwähnen, daß 
natürlich die Zeilenzah! des Bild- 
schirms mit POKE 17145,25 auf 
25 vergrössert werden muß. 

DEF funktioniert ohne die an- 
deren Programme. Durch "CALL 
5220'' werden dem Befehl DEF 
die Sprungadressen zu diesem Pro- 
gramm und dem Befehl CMD die 
Adresse 6000H zugeordnet, so 
daß z. B. der sich dort befindende 
Colour Monitor aufgerufen wer- 
den kann, um die beschriebenen 
Programme problemlos in einen 


sicheren RAM-Bereich zu 
relocieren. 
Wilfried Lyhs 
LD A, (IX) DD 7E 00 
CP 0 FE 00 
JR NZ,-9d 20 F7 
INC IX DD 23 
PUSH IX DD E5 
POP DE Di 
DEC IX DD 2B 
LD A, (IX) DD 7E 00 
CP E BB 
JR NZ,-8d 20 F8 
LD A, (IX+1) DD 7E Ol 
cPD BA 
JR NZ,-14d 20 F2 
POP BC cl 
DEC BC 0B 
DEC BC OB 
PUSH BC c5 
LD (IX),c DD 71 00 
LD (IX+1),B DD 70 01 
PoP IX DD El 
LD (IX),E DD 73 00 
LD (IX+1),D DD 72 01 
DEC IX DD 28 
LD A,0 3E 00 FE 
LD (IX),A DD 77 00 
JP 0066 .c3 66 00 
LD A,63d 3E °F 
JP 5137 c3 37 51 
CALL 50F2 CD F2 50 
POP BC cl 
LD IX, (4044) DD 2A A4 40 
"ED 5B 


LD DE, (4044) ab 40 
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5091 


N 5040 


5oBl 


5oc1 


5opl 


50D7 
50DA 


50F2 


SOFF 





LD HL,(40F9) 
XOR A 

SBC HL,DE 
LD A,(IX) 

cp 0 

JR Z,+13d 
INC IX 

DEC HL 


_LDA,0 


cCPH 

JR NZ,-15d 
CPL 

JR NZ,-18d 
JR -43d 

LD A, (IX+3) 
cp C 

JR NZ,-19d 
LD A, (IX+4) 
cP B 

JR NZ,-25d 
LD E,(IX+l) 
LD D, (IX+2) 
LD B.5 

LD A,92d 
PUSH IX 

LD (1X),A 
INC IX 

DINZ -7d 
POP BC 

INC BC 

DEC IX 

LD A,(IX) 
cP cC 

JR NZ,-8d 
LD A,(IX+1) 
CP B 

JR NZ,-14d 
LD (IX),E 
LD (IX+1),D 
JP 0066 

LD BC,5000 
LD (41A4) ,BC 
LD BC,507C 
LD (4192),BC 
JP 514F 
NOP (7 mal) 
EXX 

LD HL,10000d 
PUSH HL 

LD HL,1000d 
PUSH HL 

LD HL,100d 


PUSH HL 


LD HL,10d 
PUSH HL 

LD HL,1d 
PUSH HL 

LD IY,41EB 
LD HL,0000 


F9 


52 
7E 
00 


23 


00 


BEE 
D5 
TE 


ED 
TE 


E? 
5E 


05 
5C 
E53 
77 
23 
F9 


2B 


TE 


F8 
TE 


F2 
73 
72 
66 
00 
43 
7C 
43 
4F 


10 
ES 


64 


0A 


0 


21 
00 


40 


00 


03 


04 


01 
02 


00 


00 


01 


00 
00 
50 
A4 
50 
92 
Sl 
27 
03 
00 
00 
00 


EB 
00 
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GENE IN 

64 KB RAM, 2x720 KB Disk-Speicher, 
Bildschirm 64x 16 oder 80x24 Zeichen. TRS-80* 
Mod. 1 kompätibel 

CP/M?® fähig 

GENIE I oder Il 

64 KB RAM, Microsoft-BASIC, Bildschirm 64x16 
Zeichen, TRS-80* Mod. 1 

kompatibel 998,-- 
mit Monitor ab 1295,-- 
COLOUR GENIE 

Neueste Version mit Meßinstrument! 

16 KB RAM, Microsoft-BASIC & Grafik, 16 Farben 

auf Ihrem Farbfernseher, TRS-80® Mod. 1 
BASIC kompatibel 598, - 
®TRS-8O ist eingetragenes Warenzeichen der Tandy 


Corp. *CP/M ist eingetragenes Warenzeichen von Digital 
Research. 


PERIPHERIE 


Slime Line Laufwerk, 40 Track, SS/DD, 
250 K-Byte Speicherkapazität 

Slime Line Laufwerk, Doppelfloppy, kompl. 
mit Gehäuse, Netzteil u. Kabel 


Andere Laufwerke und Kapazitäten auf Anfrage 
lieferbar. 


Floppy Disk Controller für Video Genie und Tandy 
{double u. single density) incl. Drucker Interface und 

2 BASF 6106, im Gehäuse mit Netzteil und Kabel; 

voll Software kompatibel zu 

Tandy TRS-80® 2199 ,- 


Expansion Interface für TRS-80® incl. 332 K RAM und 
2 Jahre Garantie 925,-- 


Double Density Controlter für Tandy und 
Video Genie 


16 K Erweiterung für Colour Genie 

Star Drucker DP 510 

Zenith Monitor, grün & 

Original Sanyo Monitor, bernstein entspiegelt 


 VERBRAUCHSMATERIAL 


BASF Disketten, Qualimetrik, Double Density 
geprüft - 10 Stück 
Verbatim Disketten mit Verstärkungsring 

10 Stück 


6900,-- 


625,-- 


1499,-- 


289,-- 
159,-- 
1195,-- 
298,-- 
318,- 


Datencassette C 20 

Farbbänder für: 

Tandy Line Printer 1, I! u. IV je 
Tandy Line Printer Ill u.V je 
Tandy DW H je 
Epson MX 80 je 
Itoh 8510, 1550 je 
Oki Microline je 
Rest auf Anfrage. 


Alte hier angebotenen Produkte sind ab Lager lieferbar. 
Alle Preise incl. Mehrwertsteuer. 


cc Computer Studio GmbH 
 Elisabethstraße 5 

4600 Dortmund 1 

Tel.: 02 31- 574064 u. 528184 
Tx 822631 cccsd 


Neu: 8 Seiten Colour Genies Softwareliste 
kostenios anfordern ! 
Wir suchen ständig neua Prasranme für Colour Genie! 
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SOFTWARE 
LD B,5 6.05 | JR NZ,-33d 20 DF 
5110 POP DE pi RET c9 
LD A.(IY) FD 7E 00 5185 LD BC,515D 01 5D 51 
DEC IY FD 2B LD (415F),BC ED 43 5F 41 
SUB A,48d D6 30 NOP 
JR Z,+4d 28 04 NOP 
ADD HL,DE 19 NOP 
DEC A 3D SISF RET c9 
JR NZ,-4d 20 FC 5190 PUSH AF F5 
DINZ, -1l6d 10 FO PUSH IX DD ES 
5120 POP DE Dl PUSH BC c5 
PUSH HL E5 PUSH DE D5 
PUSH DE D5 PUSH HL E5 
EXX D9 PUSH AF F5 
. RET c9 PUSH BC c5 
5125 LD HL, (4044) ED 6B AA 40 PUSH DE D5 
XOR A AF PUSH HL E5 
LD BC,5801 01 01 58 PUSH IX DD ES 
SBC HL,BC ED 42 PUSH IY FD E5 
JR Z,+17d 28 11 LD IX,47E6 DD 21 E6 47 
LD (40A4),BC ED 43 A4 40 5lA2 LDB,5 06 05 
LD A,4Ch 3E 4c POP HL El 
5137  CALL 0033 cD 33 00 LD c,2 0E 02 
LD A,2d ED 2D LD D,2 16 02 
CALL 0033 cD 33 00 XOR A AF 
JP 0066 c3 66 00 LD E,&4 lE 04 
LD HL, (40F9) ED 6B F9 40 RRL CB 1D 
DEC HL 2B RR A CB 1F 
DEC HL 2B 51B0 DECE 1D 
LD (40A4),HL 22 A4 40 JR NZ,-7d 20 F9 
LD A,48h 3E 48 SRL A CB 3F 
JR -24d 18 E8 SRL A CB 3F 
SI4F LD BC,5125 01 25 51 SRL A CB 3F 
LD .(Z186),5C ED 43 &C 41 SRL A CB 3F 
NOP CP '10d FE 0A 
NOP: JR NC,*4 30 04 _ 
NOP ADD A,48d ch 30 
5159 JP 5185 c3 85 51 5lcl JR+2 18 02 
NOP ADD A,55d c6 37 
S15D CALL OA7F CD 7F 0A LD (IX),A DD 77 00 
LD D,H 54 DEC IX DD 2B 
LD E,2 lE 02 DEC D 15 
19:0,2 0E 02 JR NZ,-36d 20 DC 
XOR A AF LD.L,H 6C 
LD B,4 06 04 DEC C 0D 
RLC D CB 02 JR NZ,-42d 20 D6 
RL A cB 17 51Dl.- LD A,32d 3E 20 
DINZ -6 10 FA LD (1X),A DD 77 00 
CP 0A FE 0A DEC IX DD 2B 
5170 JR NC,+4 30 04 DINZ -54d 10 CA 
ADD A,48d c6 30 LD B,8 06 08 
IR +2 18 02 POP HL El 
ADD A,55d c6 37 XOR A AF 
PUSH DE D5 RRL CB 1D 
CALL 0033 ‘CD 33 00 51EO RLA 17 
POP DE pl ADD A,48d c6 30 
DEC C 0D LD (IX),A DD 77 00 
JR NZ,-27d 20.E5 DEC IX DD 2B 
5180 LD D,L 55 DINZ -13d 10 F3 
DEC E 1D LD A,32d 3E 20 
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LD (IX),A DD 77 00 ADD A,55d c6 37 
DEC IX DD 2B LD (IX),A DD 77 00 
SIFl LDD,2 16 02 52ll DEC IX DD 2B 
XOR A AF DEC D 15 
LD E,4 lE 04 JR NZ,-34d 20 DE 
RR H cB IC CALL 0049 cD 49 00 
RRA iF POP HL El 
DEC E 1D POP DE Dl 
JR NZ,-6 20 FA POP BC cl 
SRL A cB 3F POP IX DD Ei 
-  SRLA CB 3F POP AF Fi 
5200 SRL A CB 3F RET c9 
SRL A CB 3F 5220 LD BC,6000 01 00 60 
CP 10d FE 0A LD (4174),BC ED 43 74 41 
JR NC,+4 30 04 LD BC,5190 01 90 51 
ADD A,48d c6 30 LD (415C),BC ED 43 Sc 41 
JR +2 18 02 522E RET c9 


Colour Genie als 





Schreibmaschine 


Wenn man oft zwischen Computer 
und Schreibmaschine wechselt, 
kann man durch die genau umge- 
kehrte Funktion der Shift Taste 
bei beiden Geräten irritiert wer- 
den. 

So jedenfalls ging es mir. Denn 
während man bei der Schreibma- 
schine Shift drücken muß, um 
die Großbuchstaben zu bekom- 
men, ‘erhält man sie beim Com- 
puter ohne Shift, mit Shift er- 
hält man dort Kleinbuchstaben. 


Ich programmiere viel auf mei- 
nem Colour Genie, und so wie 
ich es sehe, besteht keine Not- 
wendigkeit dazu, Basicprogram- 
me in Großbuchstaben einzuge- 
ben, eher im Gegenteil, 

Wenn man zum Beispiel ein 
Basicprogramm mit vielen Print 
Statements eingibt, ist es ein- 
facher z.B. PRINT’”Dies ist ein 
Test mit vielen Kleinbuchstaben” 
zu schreiben, und nur wenige 


zeichen stehen, in Großbuchsta- 
ben um, sodaß wir auch die Ba- 
sic Statements in Kleinbuchstaben 
eingeben. Insofern spielt es also 
keine Rolle ob wir 
oder "print’’ schreiben. Das Ge- 
nie versteht beides. 

Deshalb habe ich das kleine 
Programm geschrieben, das Sie 
hier abgedruckt sehen. Es nimmt 
Ihren Basicprogrammen keinen 
Speicherplatz weg, da es in einen 
normalerweise nur vom DOS be- 
legten Speicherplatz lädt. 

Es überläßt Ihnen die Ent- 
scheidung, "in welcher Richtung‘ 
Ihre Shift-Täste. arbeitet. Sie kön- 
nen sowohl Kleinbuchstaben mit, 
als auch ohne Shift haben, je nach 
der jeweiligen Betriebsart. Sie kön- 
nen die Betriebsart umschalten, in- 
dem Sie gleichzeitig die Tasten 
Shift und CTRL drücken. 


Um das Programm einzugeben, 
brauchen Sie einen Editor/As- 


"PRINT" 


ter nachschaut, wo das Programm 
zur Tastaturabfrage steht. Das ist 
normalerweise O3E3H. Es setzt 
hier also seine eigene Adresse, und 
so benutzt der Basic-Interpreter al- 
so das Programm ab der Adresse 
"START’ zur Tastaturabfrage. 
“ Dort wird ‚überprüft, ob SHIFT- 
CTRL gedrückt ist, und wenn 
nicht wird gleich nach "START 1" 
weitergesprungen (Zeilen 100- 
120). Wenn diese Tasten gedrückt 
sind wird der Inhalt der Speicher- 
stelle "FLAG’ entweder vom 
Wert OCYH in den Wert O0, oder 
umgekehrt geändert (Zeilen 130- 
220). Dann wird das Programm an 
der Adresse "'START1"” fortge- 
setzt. = \ 

Dort wird ersteinmal ein Zei- 
chen von der Tastatur eingelesen 
(Zeile 230), also genau wie sonst 


‚ohne dieses Programm. 


Aber dann kommt es: 
Je nach Inhalt der Speicherstelle 
"FLAG" wird jetzt zum Basic zu- 


male Shift für die wenigen Groß- sembler.Ansonsten gibt es eigent- rückgekehrt, oder Klein- und 
buchstaben zu drücken, als viele lich nichts dazu zu sagen, außer Großbuchstaben werden ver- 
male. für die vielen Kleinbuchsta- vielleicht zu dem Programmier- tauscht (Zeilen 250-370). Ent- 


ben. Das Colour Genie wandelt 
nämlich alle Kleinbuchstaben, 
die nicht zwischen Anführungs- 


trick mit dem ''Flag’ in Zeile 240. 
Das Programm überschreibt die 
Adresse an der der Basic-Interpre- 


hält "FLAG’ nämlich eine Null, 
dann entspricht das der Maschi- 
nen-Sprache Anweisung NOP, die 
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dem Mikroprozessor sagt, er soll 
einen Moment lang garnichts ma- 
chen, und dann an der Speicher- 
stelle nach NOP weiterarbeiten. 
OC9YH, das entspricht der An- 
weisung RET, also Rückkehr zum 
Basic-Interpreter. 


10 ORG 4016H 

20 DEFW START 
30 ORG 41E2H 

40 JP INIT 

50 ORG 403EH 

60 INIT CALL 1LC9H 

70 LD A,OCH —_ 
80 LD (41E2H), A 
90 ]P 66H 

100 START ED: A,(F880H) 
110 CP 17 

120 IR NZ,STARTI 
130 LD A,(FLAG) 
140 CP 0 

150 IR NZ,LAB 
160 ED ‚A,OC9H 
170 ID (FLAG),A 
180 1D A,O 

190 RET 

200 LAB LD A,O 

210 LD (FLAG),A i 
220 RET 

230 STARTI CALE 03E3H 
240 FLAG RET: 

250 cp 65 

260 RET e 

270 CP 123 

280 RET NC 

290 CP 91 

300 JR C,UPC 
310 CP 97 

320 RET C 

330: SBC A,32 

340 RET 

350 UPC ADD A,32 

360 RET 

370 END INIT 
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. Das Programm verändert sich al- 
so selbst. Das ist eine Program- 
mierungsart, die Assembler-Pro- 
grammierer oft und gerne anwen- 
den, wenn sie auch dem "Nur- 
Basic-Programmierer’’ weitgehend 
fremd ist. x 
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Übrigens, das Programm startet 
nach dem Einiesen automatisch, 
siehe GENIE DATA Nr. 2 (Mai/ 
Juni), Seite 29. 


Thomas Binzinger. 
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Diesmal für Genie I mit Drucker 
ITOH 8510A oder EG 3088. 

Dieser Drucker verfügt nicht 
über die Level 2 Blockgrafik. 
Trotzdem ist es möglich, eine 
Hardcopy der Bildschirmgrafik, 
sogar gemischt mit alphanumme- 
rischen Zeichen, zu erstellen. 

Da im Normalfall die auf dem 
Bildschirm gesetzten (hellen) Fel- 
der schwarz gedruckt werden, was 
bei einigen Anwendungen, z. B. 
Schachbrett, zu falscher Wieder- 
gabe führt, wurde die Möglich- 
keit einer Invertierung der Grafik- 
zeichen vorgesehen. Dies geschieht 
durch Laden eines von Null ver- 
schiedenen Wertes in die Spei- 
cherstelle Flag 1. Von Basic aus 
z. B. durch POKE (Flag1},1. Aus- 


8 PLAYER SARGON ME 
VrEe 
1 E2-E4 17-05 
2 02-04 BB-A& 
“3 D4-D5 BB-Fö 
4 Fi-03 E7-E5 
5 PXPEP D7XES 
& 61-F3 F8-E7 
7 E4-E5 F6-05 
8 03-14 0-0 
9 0-0 As-B4 
18 12-03 B4-C6 
Ha 





schalten der Invertierung durch 
POKE (Flag1),®. Die invertierte, 
jetzt farbrichtige Wiedergabe von 
Bild 1 zeigt Bild 2. Es werden nur 
Grafikzeichen mit ASCII Werten 
die größer oder gleich 128 sind 
invertiert. Mit Space ierzeugte 
Leerfelder bleiben im Ausdruck 
weiß. Dies geschieht, um Schrift- 
felder unverändert zu lassen. Um 
einen schwarzen Block zu erzeu- 
gen muß also bei inverser Darstel- 
lung das Leerzeichen 128 statt 
Space (32) verwendet werden. 

Zu empfehlen ist der Druck- 
modus unidirectional. Dieser Mo- 
dus kann im Basic im Direkt-Mo- 
dus oder vom Hauptprogramm 
durch PRINT CHR$ (27)” >" ein- 
gestellt werden. 


HEXDUMP 


Hardcopy 


Die Schriftart ist frei wählbar, 
jedoch werden nur in Schriftart 


."Q" (Compressed) Quadrate auf 


dem Bildschirm auch nahezu qua- 
dratisch auf dem Papier ausge- 
druckt. Bei anderen Programmen 
ist eine breitere Darstellung durch 
Schriftart ’’N’' (Normal) oder "E' 
(Elite) vorteilhafter. Der Ausdruck 
hat bei Schriftart "'Q’ etwa die 
Größe 95x70 mm, bei Schriftart 
"N" etwa 162x70 mm. Die Dauer 
des Druckens beträgt etwa eine 
Minute. 

Bei Anpassung der Druckeraus- 
gabe 'OUTPR’ (statt OUT(ÖFDH), 
A muß es heißen LD (37E8),A) 
müßte dieses Unterprogramm auch 
auch auf dem TRS 80 laufen. 

Werner Pohl 
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Tr ng in. 


FbDa Farb 2310 FPEI Fila G4cD FarD I1AFB CiC9 „üR.,Yad..M.ü.Anl 
DES 1854 3137 aDeR BBiB SSza 3531 32FF FFFFO50T17...,.56512___ 
zDFO- "FFRFFFFFROFFFFFFFFOFFEFFFFFOFFFEOFFFFOÖ CC 
PRUEFSUMMESSTER 


Der Bereich von TDED bis FFEC wird zum Zwischenspeichern benutzt. 


saaıa ORG ?DaGH sasaa II LD ° A,{HL> 












naaza FLAbi DEFB u aasaa call QuTPR 
aaasa HARD : PUSH AF Base INC HL 

aagatı - PUSH BC 40578 DUNZ wi 

spasa PUSH DE aa5s8a LD BC,523D 
naasa FUSH HL aasra LD HL,BUF=Z 
aaa7ea LD HL ,BUF3 sasae I2 LD A,CHLY. 
sage LD <BUF1)>,HL BBSLE CALL OUTPR 
aaara LD HL, 3C8@H aad28 INC HL 
aaıad LD DE,4900H gassu DEC BC 

Bella NW2 LD B,4&aH ans LD A,B 

galzd NEL BIT 7,<HL) Bosse OR e 

as1308 JR NZ ‚Ni Sasse JR NZ,12 
aa140 .LD "A,CHL) aas7a POP HL 

ga158 CALL GUTPR ans. SEC HL,DE 
aalst XÜR A gasya LD HL,BUF3 
86178 CALL sP4 anraa LD CBUF1),HL 
ralza CAaLL sP4 Ga71ß FOP HL 

kalre JR NEWI Harza IR NZ ,NW2 
Bazaa Ni KÜR A aaraa POF HL 

soz1e BIT 8,cCHL> aa740 PGP DE 
uszza JR £,N2 aarse POP BC 

89238 ÜR BFH 2au7s8 ö Pop Ar 

gaz4a NZ BIT 2,CHL> Barra RET 

au2se IR  2,N3 Barse OUTPR PUSH AF 

au2su OR arF&H narra O1 CALL 85D1H 
aa278 Na CALL oTt4 aasoa IR NZ ,01 
agzan Kür A aasie POP Ar 

aa2ra BIT 4,CHL) 9820 GUT <aFDH) ‚A 
aas3ßt IR 2 ,Na 8u838 RET 

aa31a OR -  @FH aas4aa IMVERS PUSH AF 

aasza Nd CALL INVERS Basse LD A,tFLas!) 
aassß EALL sP4 . ABHSA örR ei 

aczan xKÖÜR A nagra JR Z,RT2 
80358 1,CHL> aassa . POP Ar 

30368 2 ,NS BasrE  XOR örFH 

na378 OFH | Basad...... JR RTZ 

nasse NS S,cHL> BArla-RT2... POP Äär 

20378 Z,NS u 2 2 Bar2aRTS RET 

aagan ; BE@H: aaraa SPp4 PUSH HL 

Basla nd 2 aarda PUSH BC 

Ba428 N ” Bars LD HL,<BUFI) 
25438 . 5 eRL)F aarsı LD B,4 
aana4d. 2,N? I aaP7ası " " "LD -tHL3 ‚A 
euase BFH aarsa INC HL | 
aadsa N? INWERS Ba790 DUNZ Si 

8470 sP4 a1aad LD <BUF1D HL 
gaase NEW HL gıala POP: EC: | 
gar NEW 21028 POP HL | 
20508 HL 01838 RET 

aasie HL aıaaa 0T4 PUSH BF 

2a520 8,5 a1a5a LO A,<FLAGt) 
aa53a HL ,EUF® alasa or A 
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B1ara JR: Z,RT@ gizda UTdz CALL GUTPR 
gıasa FOrF SF 81258 DINEZ oTg42 
aıara KÜR aFFH g1268 FOP BE 
aıısa JR RTi 61278 RET 

gıt1lG RT PÜP Ar ai2Ea BUFE DEFE ıEH 
ailze RTi PUSH BC Bilzra DEFM RER 
811380 PUSH Ar a13680 DEFB aDH 
aııde FUSH HL gı3a1B BUFi DEFW 6586 
aııse LD B,& ; gıaza BUFZ DEFB 1BH 
alilseh LD HL,BUF4 61330 DEFM ‚sa5ı12 
aiılra GT41 LD &,.{cHL) aıaaa BuF23 DEFS 512D 
aıısa COLL QUTFR 91358 DEFB ıEH 
all? "INC HL 81358 DEFM Tas‘ 
e1288 DJNZ ara a137u DEFB DH 
81218 PÜr HL a1388 BUF4 'DEFE iEH 
Blz28 POP Br a13r8 DEFM "SaaB4’ 
81238 EB B,4 aidaa END 





















KLEIN-ANZEIGEN 


Pr. ... HARDWARE: kom- 
patibele Joysticks und 'Pad- 
dles. Info 50 Pf,, H. Czech, 
Kölner-6, 5090 L.ev. 3 


Suche für in der Genie Data 
erschienenen Colour-Genie- 
Programme die dazu not- 
wendigen Druckprogramme 
für Drucker Star DP. 510. 
Angebote an Helmut Beier 
Postfach 1225 

6836 Oftersheim 





Suche Colour Genie Soft- 
ware und Hardware. 

Bernd Eckstein, Hauptstr. 
138, 5014 Kerpen 1 Horrem 





Colour Genie: Programm- 
und Erfahrungsaustausch 
wünscht Erwin Jurschitza, 
Ellensindstr. 7A, 8900 
Augsburg 21 





Suche defektes GENIE Io. 
I bis 400 DM. Udo Jourdan 
Darmstädter Str.. 66, 6080 
Groß-Gerau 


Colour-Genie-SOFTWARE: 
Action-Spiele (Flug-Simula- 
tor, Space Travel ...), Mathe- 











Datext 2! Das kombinierte 
Datei- und Textverarbei- 
tungsprogramm für Video 
Genie auf Cassette. Sucht 
nach 9 Kriterien, Übernah- 
me der Datei ins Textpro- 
gramm, erstellt z. B. Serien- 
briefe, abspeichern von Da- 
tei und Text auf Cassette. 
Info bei Ottmar Bange, Auf 
der Valstadt 7, 5786 SUN- 
DERN 15, 


Genie I 64k + Monitor + 
ITOH = use 
nur 2300 ,--. 

gebraucht 1 08142/6929 


Colour-Genie Joysticks zu 
verkaufen. 1 Monat alt. 

199 DM. Tel. 06821/77168. 
Ab 16 Uhr, 





Geld verdienen mit dem Mikrocomputer 


Wie Sie das machen können, zeigt ihnen unsere Arbeitsmappe »Geld verdienen 
mit dem Mikrocomputer«. Wir zelgen Ihnen wie Sie mit elnem Adressenverlag 
Geld verdienen können, oder wle eln Textservice-Büro aufgebaut wird. Weltere 
Themen sind: 

Geschäftssrikeldung und wie man es macht 

Start von zu Hause aus 

Vermittiungsgeschäfte per Mikrocomputer 

Verkaufen Sie Software 

Geld verdienen mit elnsm Buchversand 

Das Computer-Kinderbuch 

Das Geschäft mit den Veralnen Ä 

Wie Sie einen Computershop eröffnen 

Geld verdienen mit Bausätzen und Tellen 

Der frelberufilche Programmierer 

Wie Sie nebenberuflich Computer verkaufen könrıen und viele weitere Tips, 
Ideen und Anregungen. Auch ein umfangreiches Adressenverzelchnis Ist 
beigefügt, damit Sie wissen wo Sie was beziehen können. 

Die Mappe kostet mit Checklisten DM 98... Lieferung erfolgt par Nachnahme 
+ Porto oder gegen Scheck portofrei. Garantie: Sie haber Rückgaberecht 
Innerhalb 8 Tagen. 


Verlag P. Kirchmeier, Ringstr. 3/CR, 7504 Weingarten, Tal. 07244/2871 
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Die nächste GENIE DATA erscheint am 
10. November 1983 
Der GENIE DATA Sonderband aus Heft 
Nummer 1 und 2 erscheint am 
15. Dezember 1983 


"Anzeigenannahmeschluß für Nummer 5 ist 
der 10. Oktober 1983 





Die brandheiße DONKEY KONG VERSION FÜR IHR COLOUR. GENIE 
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Produktion: 
ab Realisation und Special-Effects: T. M. BINZINGER 
Weltvertrieb: Fa. Heinz Hübben, Abt. Software-Verlag 





verschiedene Spiel-Szenen, ganz tolle Grafik, Top Sound ! 
GORILLA: In Multi-Colour und HÜBI-Vision. 
GORILL A: Demnächst auf Ihrem Bildschirm. 


KAERKRFRERRHRRENRTR TH TFT TE FE HF KT FE HER HF NH FR RR 





Heinz Hübben 


Mühlbachstraße 2, D-5429 Marienfels/Taunus 
Pres: NUR DM 49,- 








ERLEBEN SIE DAS NEUARTIGE ACTIONS-SPIEL MIT FASZINIERENDEN 
SOUND- UND. GRAFIK-EFFEKTEN von Thomas M. Binzinger für Ihr Colour Genie 
NUR DM 49,- 


Zu beziehen bei Firma g, Mühlbachstr. 2, Marienfels/T 






$. 


ERLITTEN EEE SEITENENDE EFT 


grafische Darstellu ng der 
— | Spielkarten mit Ton 
= NUR DM 29; 


EEE SEN HSURRTEZEESEE 


Zu beziehen bei Firma Heinz Hübben, Abteilung Software-Verlag 





* 


Der VZ200 COLOUR COMPUTER bietet Ihnen folgende Vorteile zu einem unschlagbaren Superpreis: . 
12K Microsoft* Basic im ROM, 4K RAM, erweiterbar um 16K oder auf 64K, 32 Zeichen auf 16 Zeilen, Grafik und Text ist 
kombinierbar, HiRes Grafik-Modus mit 128x64 Punkten und 8 Farben, komplette Tastatur mit 45 Tasten, Basic-Befehle mit 
einem Tastendruck, im Textmodus 9 Farben, Tonwiedergabe über eingebauten Lautsprecher, mit COPY-Befehl voller Ausdruck 
der Bildschirmgrafik, 600 Baud Cassetten-Interface für handelsübliche Cassettenrecorder (kein teueres Spezialgerät), 
Centronics-Paraleli-Druckerinterface (Sonderzubehör), Peripherie-Anschluß (direkt eingebaut), anschließbar an jeden Farb- 
oder SW-Fernseher oder Video-Monitor, und, und, und...... z 

im Lieferumfang enthalten sind 3 deutsche Handbücher, eine Demo-Cassette, ein Netzteil und der Computer. Und nur bei uns 
kostenlos zu jedem VZ 200 COLOR COMPUTER zwei tolle Telespiele!11! 


DAS ALLES ZUM: SUPERPREIS VON NUR 299,- DMI!! - 16K Erweiterung nur DM 149,- 
Unten Abgebildete Peripherie befindet sich in Vorbereitung. *Microsoft ist eing. Warenzeichen der Microsoft Inc. Washington. 
RALF M. HÜBBEN, VERLAG FÜR COMPUTERTECHNIK, 5429 MARIENFELS, TEL.: 06772-7828 





»*”=SOFORT BESTELLEN!!! *s« 


Erweiterungs-Möglichkeiten 
für Ihren VZ 200 COLOR COMPUTER 





Fernsehgerät 
oder Video-Monitor 





Drucker 


Drucker-Schnittstelle ee, t 
(Interface Centronics) ö 16K/64K RAM 
a . Speicher-Erwelterung 


ex] 














ES 


Steuerknüppel 


VZ 200 COLOR COMPUTER 


